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