{var %x,%z = 1
while (%z <= $numtok($1-,32)) {
  set %x %x $+($chr(3),,$upper($left($gettok($1-,%z,32),1)),$chr(3),,$right($gettok($1-,%z,32),-1))
  inc %z 1
}
say %x