1(* Internal module, not exposed *) 2 3val parse : 4 Warning.t list ref -> 5 Token.t Loc.with_location Stream.t -> 6 Ast.t * Warning.t list