%macro bar 1.nolist
 %push
 %defstr %$string %1
 %strlen %$length %$string
 %assign %$ii 0
 %assign %$exit 0
 %rep %$length
  %substr %$point %$string %$ii + 1, 1
  %if %$point == 32 || %$point == 9
   %assign %$exit 1
   %exitrep
  %endif
  %ifn %$exit
   %assign %$ii %$ii + 1
  %endif
 %endrep
 %substr %$word %$string 1, %$ii
 %deftok %$token %$word
        %$token
 %pop
%endmacro


bar nop quux xyzzy