alias age {
  var %Bday = $iif(!$2,$ctime(September 20 12:00:00 1991),$2), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  var %a 14is04 $regsubex(%other,/([a-z]+)\b/Sig,$+($chr(3),14,\t,$chr(3),04)) 14Approx04 %years 14years old.04 $me 14will be04 $floor($calc(%years +1)) 14years old in04 $regsubex(%next,/([a-z]+)\b/Sig,$+($chr(3),14,\t,$chr(3),04)) $+ 14.
  $iif(E isincs $chan(#).mode,say $iif(c isincs $chan(#).mode,$me,$+($chr(3),04,$me)),me) $iif(c isincs $chan(#).mode,$strip(%a),%a)
}