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)