let mktmpdir tmp_pattern = let ic = Unix.open_process_in (Printf.sprintf "mktemp --tmpdir -d %s" tmp_pattern) in let path = input_line ic in ignore (Unix.close_process_in ic); path