main = do interact $ show . (fmap $ (+) 1000) . map (read :: String -> Int) . words
1 22 3 4 555 6
[1001,1022,1003,1004,1555,1006]
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!