alias c1 return $+($chr(3),04,$1)
alias c2 return $+($chr(3),14,$1)
alias age {
  var %bm = may, %bd = 30, %by = 1990, %bt = 12:00:00
  var %a = $ctime($asctime(mmmm d yyyy hh:nn:ss)), %b = $ctime(%bm %bd %by %bt), %t = $ctime(%bm %bd $asctime(yyyy) %bt), %n = $ctime(%bm %bd $calc($asctime(yyyy) + 1) %bt)
  tokenize 58 $duration($calc(%a - %b),3)
  var %h = $1, %m = $2, %s = $3, %tw = $floor($calc(%h / (7 * 24)))
  var %y = $floor($calc(%h / ((365 * 24) + 6))), %h = $calc(%h - (%y * (365 * 24 + 6)))
  var %mo = $floor($calc(%h / (30 * 24))), %h = $calc(%h - (%mo * (30 * 24)))
  var %d = $floor($calc(%h / 24)), %h = $calc(%h - (%d * 24))
  var %w = $floor($calc(%d / 7)), %d = $calc(%d - (%w * 7))
  tokenize 58 $duration($iif(*-* iswm $calc(%t - %a),$calc(%n - %a),$v2),3)
  var %2h = $1, %2m = $2, %2s = $3
  var %2mo = $floor($calc(%2h / (30 * 24))), %2h = $calc(%2h - (%2mo * (30 * 24)))
  var %2d = $floor($calc(%2h / 24)), %2h = $calc(%2h - (%2d * 24))
  var %2w = $floor($calc(%2d / 7)), %2d = $calc(%2d - (%2w * 7))
  describe $active $c2(is) $+($c1(%y),$c2(YRs)) $+($c1(%mo),$c2(MOs)) $+($c1(%w),$c2(WKs)) $+($c1(%d),$c2(DAYs)) $+($c1(%h),$c2(HRs)) $+($c1(%m),$c2(MINs)) $+($c1(%s),$c2(SECs)) old. And will be $c1($calc(%y + 1)) $c2(years) old in $+($c1(%2mo),$c2(MOs)) $+($c1(%2w),$c2(WKs)) $+($c1(%2d),$c2(DAYs)) $+($c1(%2h),$c2(HRs)) $+($c1(%2m),$c2(MINs)) $+($c1(%2s),$c2(SECs)) ~~ Total Weeks Old: $c1(%tw)
}