let print_progress ?i msg = Format.printf "Progress: %s@." (Util.timestamp ()); if not(Option.is_none i) then Format.printf "Percentage: %d@." (Option.get i); if msg <> "" then Format.printf "Message: %s@." msg