removed commented out debug lines

2/main.ml

@@ -63,7 +63,6 @@ let () =
   let f = open_in "input.txt" in
   let lines = list_of_lines f in
   let diffs = List.map (fun a -> int_list_diff @@ parse_int_list a) lines in
-  (* List.iter (fun a -> List.iter (printf "%d, ") a; printf "\n") diffs *)
   let count = List.fold_left (fun acc l -> if list_diffs_safe l then acc + 1 else acc) 0 diffs in
   let count2 = List.fold_left (fun acc l -> if list_diff_safe_with_tolerance l then acc + 1 else acc) 0 diffs in
   printf "%d\n" count;