/age {
  var %seconds $calc($ctime - $ctime(January 6 1988 11:00:00))
  var %bdthis $calc($ctime(January 6 $asctime(yyyy) 11:00:00) - $ctime)
  var %bdnext $calc($ctime(January 6 $calc($asctime(yyyy) + 1) 1:00:00) - $ctime)
  var %seconds2birthday = $iif(%bdthis > 0,%bdthis,%bdnext)
  var %days2birthday $calc(%seconds2birthday / 3600 / 24)
  me is  $+ $calc(%seconds / 365.25 / 24 / 3600) $+  years old ( $+ %seconds seconds) $chr(91) $+ Next birthday:  $+ $round(%days2birthday,0) $+  $iif($round(%days2birthday,0) == 1,day,days) left $+ $chr(93)
}