alias age {
  var %Bday = $ctime(September 20 12:00:00 1991), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  me 14is04 $regsubex(%other,/([a-z]+)\b/Sig,$+($chr(3),14,\t,$chr(3),04)) 14Approx04 %years 14years old.
}

alias age2 {
  var %Bday = $ctime(September 20 12:00:00 1991), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  me 14will be04 $floor($calc(%years +1)) 14years old in04 $regsubex(%next,/([a-z]+)\b/Sig,$+($chr(3),14,\t,$chr(3),04)) $+ 14.
}