master
1module Main (main) where 2 3import Lib 4 5main :: IO () 6main = putStrLn $ (unlines . map collatzSequence) [1..10000]