import System main = aaa 1 aaa 10 = exitWith ExitSuccess aaa x = do putStr (show x) aaa (x+1)