alias age {
  var %Bday = $iif(!$1,$ctime(March 25 12:00:00 1993),$ctime($1-)), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952)),%c1 $+($chr(3),04),%c2 $+($chr(3),14)
  var %a $+(%c2,is,%c1 $regsubex(%other,/([a-z]+)\b/Sig,$+(%c2,\t,%c1)) %c2,Approx,%c1) %years $+(%c2,years old.,%c1 $me %c2,will be,%c1 $floor($calc(%years +1)) %c2,years old in,%c1 $regsubex(%next,/([a-z]+)\b/Sig,$+(%c2,\t,%c1)),%c2,.)
  $iif(E isincs $chan(#).mode,say $iif(c isincs $chan(#).mode,$me,$+(%c1,$me)),me) $iif(c isincs $chan(#).mode,$strip(%a),%a)
}