Boykin
public text v1 · immutable{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 {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