fork download
  1. main = mapM print $ filter (\n -> n `mod` 2 == 0) $ takeWhile (\n -> n < 30) [1..]
Success #stdin #stdout 0s 8388607KB
stdin
Standard input is empty
stdout
2
4
6
8
10
12
14
16
18
20
22
24
26
28