let string_of_date d = Printf.sprintf "%04d-%02d-%02d %02d:%02d:%02d" d.year d.month d.day d.hour d.minute d.second