1import GHC.OldList
2main :: IO ()
3main = maximumBy compare [1..10000] `seq` return ()
4