--- /dev/null
+import "Prelude"
+
+foobar x = match x with
+ Left lt -> foo lt
+ Right rt -> bar rt
+ where
+ foo x = "left " + show x
+ bar x = "right " + show x
+
+main = foobar (Left "ASD" :: Either String String)
+--
+left "ASD"
\ No newline at end of file