diff --git a/examples/string-pats.hs b/examples/string-pats.hs
new file mode 100644
index 0000000..9579b69
--- /dev/null
+++ b/examples/string-pats.hs
@@ -0,0 +1,3 @@
+main = case "foo" of
+         "bar" -> 0
+         "foo" -> 1