{-# LANGUAGE Strict #-} module BottomExpression where !x = undefined y = "blah" main = do print $ snd $ seq x (x, y)