main = print $ filter (`elem` [1, 1111, 1111111]) [0..100000000]
Standard input is empty
[1,1111,1111111]
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!