sig
  val make : int -> string
  val past : unit -> string
  val short : unit -> string
  val medium : unit -> string
  val long : unit -> string
end