Something

alias age {
  var %Bday = $iif(!$2,$ctime(January 27 09:45:00 1988),$2), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  me 10is15 $regsubex(%other,/([a-z]+)\b/Sig,$+($chr(3),10,\t,$chr(3),15)) 10Approx15 %years 10years old.15 $me 10will be15 $floor($calc(%years +1)) 10years old in15 $regsubex(%next,/([a-z]+)\b/Sig,$+($chr(3),10,\t,$chr(3),15)) $+ 10..
}