let feed_line p s =
    Queue.enqueue p.lines s