alias chrwrite $iif($isid,return,echo -ta) $!+( $+ $!chr( $+ $replace($remove($regsubex($1-,/(.)/g,$asc(\\1) $+ $+($chr(41),$chr(44),$!chr,$chr(40))) $+ $chr(41),$chr(44) $+ $!chr()),$chr(44) $+ $!chr(32) $+ $chr(44),$chr(41) $!+ $+ $chr(40)) $+ $chr(41)
redid it.