let string_of_date ?(hour=false) d =
  Printf.sprintf
    "%04d-%02d-%02d%s"
    d.year
    d.month
    d.day
    (
     if hour then
       Printf.sprintf " %02d:%02d"
         d.hour
         d.minute
     else
       ""
    )