let of_string s = s |> Stream.of_string |> Parse.lexer |> Parse.value