m:-prompt1(''),get0(C),(C<0;(C=10,put(C);format(atom(Y),"~`0t~2r~4|",C-45),write(Y)),m).