exception Foo of string; exnName(Foo "bar"); exnMessage(Foo "bar"); val Foo1 = Foo; exnName(Foo1 "bar");