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