Alias PutStuff { If ($1) { var %a = 1 While ($Mid($1-,%a,1)) { var %b = $iif(%b,%b $+ $Chr($2)) $+ $v1 inc %a } return %b } }
alias putstuff { var %a, %b = $regsub($1,/(.)/g,\1 $+ $2,%a) return $left(%a,-1) }
alias addchr { var %x .echo -q $regsub($1,/(?<=.)(?=.)/gs,\ $+ $2,%x) return %x }