1 2 3 4 5 6 7
{-# LANGUAGE Strict #-} module BottomExpression where !x = undefined y = "blah" main = do print $ snd $ seq x (x, y)