let current_position p =
    Pos.make ?file:p.filename ~line:p.parsed_lines ()