#include #proto showmessage(_X_) main: s="message", t=s ++s, _show message(s) s=t --s, _show message(s) ++s, _show message(s) {0}return .locals showmessage(_S_) {_S_,"\n"}print back