age script

/set %age March 10 1991 00:30:00
alias age { say My current age: I am exactly $dur($calc($ctime - $ctime(%age))) old! }
alias -l dur { %a = $1 | return $iif(!%a,0secs,$s(31536000,year) $s(2628000.0288,month) $s(604800,week) $s(86400,day) $s(3600,hour) $s(60,minute) $s(1,second)) }
alias -l s { %b = $int($calc(%a /$1)) | %a = %a % $1 | if (%b) return %b $+ $2 $+ $iif(%b > 1,s) }