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: