let
contents p =
Queue
.to_list p.lines, p.unfinished_line