diff --git a/common/code/Code.hs b/common/code/Code.hs
index 56c1dc8..c92e9a5 100644
--- a/common/code/Code.hs
+++ b/common/code/Code.hs
@@ -51,3 +51,9 @@ addTwo (x:xs) = (x + 2) : addTwo xs
 
 f'' :: String -> Bool
 f'' xs = even . length . (\x -> x ++ "Hello world") $ xs
+
+g :: Int -> Bool
+g x = case x - 2 of
+  2 -> True
+  5 -> True
+  x -> False