m(X):-put(X),(X=48,halt;m(X)).:-get(X),m(X).
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!