{-# LANGUAGE Strict #-}

main :: IO ()
main = print $ let x = undefined in True