ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/T10830.hs

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