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