Untitled
public text v1 · immutable/zz {
var %x,%z = 1
while (%z <= $numtok($1-,32)) {
set %x %x $+($chr(3),4,$upper($left($gettok($1-,%z,32),1)),$chr(3),7,$right($gettok($1-,%z,32),-1))
inc %z 1
}
say %x
}/zz {
var %x,%z = 1
while (%z <= $numtok($1-,32)) {
set %x %x $+($chr(3),4,$upper($left($gettok($1-,%z,32),1)),$chr(3),7,$right($gettok($1-,%z,32),-1))
inc %z 1
}
say %x
}