{-# LANGUAGE BangPatterns #-}
foo = case v of !1 -> x