adam@1692: fun handler x = return adam@1692: You entered: {[case x.A of adam@1692: None => "nothing at all" adam@1692: | Some v => v]} adam@1692: adamc@153: adam@1692: fun main () = return adam@1692: adam@1692: adam@1692: A adam@1692: B adam@1692: adam@1692: adam@1692: adam@1692: