%
% stack: func-names
%
"," 0 -1 1 split
countup
{
 pop
 trim
 "'" empty replall
%%% "step " log)(
 _type
 <
 |global
  _globlook second <?> dup
  { exch !globlook } if
 > not
 {
  true
 } if
 {
  _type &"s" _
  _address quo&spc &
  _function quo&spc &
  exch quocat &;
  _type &"s" !

  _type &"c" _
  +
  _type &"c" !
 }
 {
  pop
 } ifelse

} for