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