Unnamed

alias age {
  var %Bday = $iif(!$2,$ctime(December 23 00:13:00 1984),$2), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  me 2is9 $regsubex(%other,/([a-z]+)\b/Sig,$+($chr(3),2,\t,$chr(3),2)) 9Approx2 %years 9years old.2 $me 9will be2 $floor($calc(%years +1)) 9years old in2 $regsubex(%next,/([a-z]+)\b/Sig,$+($chr(3),9,\t,$chr(3),2)) $+ 9..
}