actually, can be done more simply as:

mapM_ print [1..1000]

but yeah, ...haskell +1 for that :D