let queued_lines p = Queue.length p.lines