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