Age script

alias age {
  if ($duration($calc($ctime($+(,%dd,/,%mm,)/ $calc($+(,%yyyy,) + $round($calc(($ctime - $ctime($+(%dd,/,%mm,/,%yyyy,)))/31536000),0)) 00:01) - $ctime)) < 0) {
    say I am $round($calc(($ctime - $ctime($+(%dd,/,%mm,/,%yyyy,)))/31536000),2) years old <> Next Birthday in $duration($calc($ctime($+(,%dd,/,%mm,)/ $calc($+(,%yyyy,) + $round($calc(($ctime - $ctime($+(%dd,/,%mm,/,%yyyy,)))/31536000),0) +1) 00:01) - $ctime)) ( $+ $ord(%dd) $asctime($ctime($+(,%dd,/,%mm,/,%yyyy,)),mmmm) $+ )
  }
  else {
    say I am $round($calc(($ctime - $ctime($+(%dd,/,%mm,/,%yyyy,)))/31536000),2) years old <> Next Birthday in $duration($calc($ctime($+(,%dd,/,%mm,)/ $calc($+(,%yyyy,) + $round($calc(($ctime - $ctime($+(%dd,/,%mm,/,%yyyy,)))/31536000),0)) 00:01) - $ctime)) ( $+ $ord(%dd) $asctime($ctime($+(,%dd,/,%mm,/,%yyyy,)),mmmm) $+ )
  }
}
alias setage {
  set %dd $?="What day are you born? (double digit)"
  set %mm $?="What month are you born? (double digit)"
  set %yyyy $?="What year are you born? (four digit)"
}