let
line_of_string s =
match
line (s, 0)
with
|
Parsed
(r, _)
->
r
|
Failed
->
empty_line