program :- write(s(X)). !.
1 2 3 4 5 6 7 8
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!