main = interact (unlines.f) f s@(a:b:c)=s:map(' ':)(f.init$b:c)f s=[s]
abcdefghijklmnopqrstuvwxyz
abcdefghijklmnopqrstuvwxyz bcdefghijklmnopqrstuvwxy cdefghijklmnopqrstuvwx defghijklmnopqrstuvw efghijklmnopqrstuv fghijklmnopqrstu ghijklmnopqrst hijklmnopqrs ijklmnopqr jklmnopq klmnop lmno mn
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!