%
% stack: section-letter
%
_Cton.Guide
dup ^"--------mxmu" logs
"/***" &3 &; right$
"***/" ^3) &; slice
dup ^"--------mxmub" logs
"___DocW___" __OriginalDocWidth_ replall
"___DocH___" __OriginalDocHeight_ replall
!Cton.Guide