%
% translate cton
%
 wireop(
">Editor" log)(
 "Image" empty replall
 "_" empty replall
 dup
 *esysindd { pop2nd } if
">after" log)(
%
% stack: cton-xlat
%