1 2 3 4 5 6
module NonStrictnessScratch where x = undefined y = "blah" main = do print $ snd (x, x `seq` y)