(* TEST
   flags = "-dparsetree"
   * setup-ocamlc.byte-build-env
   ** ocamlc.byte
   *** check-ocamlc.byte-output
*)

# 1 "pr6604.ml"

# 3 "pr6604.ml"
# 4 "pr6604.ml"