let time2str ?zone templ time =
  let args =
    [sv_of_string templ; sv_of_float time] @
    match zone with
        None -> []
      | Some zone -> [sv_of_string zone] in
  string_of_sv (call ~fn:"Date::Format::time2str" args)