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