/age {
  ;change the nextline to "var %bday = <month> <date> <year>"
  var %bday = September 18 1982
  var %years = $calc(($ctime - $ctime(%bday)) / 31554000)
  var %age = $round(%years,0)
  var %end = th
  if ($right(%age,1) == 3) %end = rd
  if ($right(%age,1) == 2) %end = nd
  if ($right(%age,1) == 1) %end = st
  say { I am %years years old } { Born $duration($calc($ctime - $ctime(%bday))) ago } { $bday until my %age $+ %end birthday }
}