main = mapM print $ filter (\n -> n `mod` 2 == 0) $ takeWhile (\n -> n < 30) [1..]
Standard input is empty
2 4 6 8 10 12 14 16 18 20 22 24 26 28
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!