let print_error fmt = Printf.kprintf (fun s -> Format.printf "Error: %s@." (Util.timestamp ()); Format.printf "Message: %s@." s; exit 0 ) fmt