ghc-exactprint-0.5.0.0: tests/examples/ghc8/T10830.hs

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