path: root/libraries/base/tests/T16943a.hs

module Main(main) where

scoreWeek = scanr (:) [] $ repeat True

main = seq scoreWeek (putStrLn "good")