T16943a.hs 105 Bytes
Newer Older
Ben Gamari's avatar
Ben Gamari committed
1 2 3 4 5 6
module Main(main) where

scoreWeek = scanr (:) [] $ repeat True

main = seq scoreWeek (putStrLn "good")