let read chanin =
      try
        let tree = IoXML.parse_xml (Stream.of_channel chanin) in
        xparse_schema tree
      with
        e ->
          let e =
            match e with
              IoXML.ExcLoc ((bp,ep), e) ->
                prerr_endline (M.error_at_location bp ep)
            | e ->
                prerr_endline (Printexc.to_string e)
          in
          default ()