let
queued_lines p =
Queue
.length p.lines