let parse_pkg_req suite s = let (r,((n,a),c),s) = parse_req s in begin match suite with |None -> (r,((n,a),c),s) |Some suite -> (r,((n,a),c),Some suite) end