alias co {
var %i = 1, %coo = 11,01, %coo1 = 15,01, %coo2 = 10,01, %ct, %x
while %i <= $numtok($1-,32) {
%ct = $gettok($1-,%i,32)
if ($len(%ct) == 1) %x = $+(%x,$chr(32),%coo,%ct)
else %x = $+(%x,$chr(32),%coo,$left(%ct,1),%coo1,$mid(%ct,2,-1),%coo2,$right(%ct,1))
inc %i
}
return %x
}