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