1{-# LANGUAGE BangPatterns #-}
2foo = case v of (x : xs) -> x
3