let module G = Gdome in
let module X = Xml in
let root_name,root_attributes,root_content =
+ ignore (Stream.next strm) ; (* to skip the <?xml ...?> declaration *)
+ ignore (Stream.next strm) ; (* to skip the DOCTYPE declaration *)
match Stream.next strm with
X.Empty(n,l) -> n,l,[<>]
| X.NEmpty(n,l,c) -> n,l,c