1let () = 2 Alcotest.run 3 "Lithos" 4 [ "Error", Test_error.suite; "IO", Test_io.suite; "Types", Test_types.suite ] 5;;