adamc@821: fun main () =
adamc@821:   case #"A" of
adamc@821:       #"B" => return <xml/>
adamc@821:     | _ => return <xml>A!</xml>