Mine

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