let main filename () : unit Deferred.t =
  (* We use Writer.with_file as before, but this time we open the file for
   * appending. This let's us open a file without erasing its contents. *)
  Writer.with_file ~append:true filename ~f:stdin_to_diary