m:-prompt1(''),readln([S],_,_," 0468+-#",''),(S==end_of_file;sub_atom(S,0,1,_,A),(S=A,writeln(A);sub_atom(S,1,_,1,B),sub_atom(S,_,1,0,C),concat_atom([C,B,A],'',D),writeln(D)),m).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).