date

[procedure] date (o time (seconds))

(def date ((o time (seconds)))
  (let val (tostring (system (string "date -u -r " time " \"+%Y-%m-%d\"")))
    (subseq val 0 (- (len val) 1))))