%% /setxsubtkstep {
%%    /xsubtkstep exch def
%% } def