ghc-exactprint-0.5.3.1: tests/examples/ghc80/T10830.hs

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