The current behavior is this: ``` utop # Date.make 2017 1 32 |> Printer.Date.to_string;; - : string = "2017-02-01" ```