alias firstchar { if (!$isid) { return } var %a = 1, %b, %c, %d, %t = $1- while ($gettok(%t,%a,32)) { %b = $v1 %c = $upper($left(%b,1)) %d = $lower($mid(%b,2)) %t = $replace(%t,%b,$+(%c,%d)) inc %a } return %t } on *:input:#: { if ($left($1,1) != /) { var %x = 1, %z = $1- while ($ [ $+ [ %x ] ]) { ...