chr replace text

guna camni //say $ch(<text) atau leh buat input msg $active $ch($1-)
contoh //say $ch(love) nanti dia msg $+($chr(108),$chr(111),$chr(118),$chr(101))

alias ch {
unset %out
.set %t 1 | .set %tt 1
:ch
if (%t > $len($1-)) { return $ $+ +( $+ $left(%out,$calc($len(%out) - 1)) $+ ) | halt }
if ($chr(%tt) !=== $mid($1-,%t,1)) { inc %tt | goto ch }
if ($chr(%tt) === $mid($1-,%t,1)) { .set %out %out $+ $!chr( $+ %tt $+ ) $+ $chr(44) | inc %t | .set %tt 1 }
inc %tt
goto ch
}