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