adam@1580: con e = []
adam@1580: structure B : sig
adam@1580: end = struct
adam@1580: end
adam@1580: open B
adam@1580: 
adam@1580: fun main () =
adam@1580:  return <xml></xml>