alias fcalc {
  var %a $3, %o $2, %s 86400, %k tokenize
  %k 58 $1

  if (!$3) %k 32 $str($+(0,$chr(32)),$calc(3 - $0)) $1-
  var %1 $1, %2 $2, %3 $3
  %k 58 %a
  if (!$3) %k 32 $str($+(0,$chr(32)),$calc(3 - $0)) $1-
  return $+($calc(%1 %o $1),:,$calc(%2 %o $2),:,$calc(%3 %o $3))
}