let lexer_of_string ?(print_trace = false) (s : string) : t_token list = let matrix : string array array = matrix_of_string s in try lexer_of_matrix ~print_trace:print_trace matrix with |Error "empty matrix" -> raise (Error "empty string")