alias ras { set %klmme $1 | set %asy $rand(1,$len($1)) | set %tam $left(%klmme,$calc(%asy - 1))  $+ $rand(0,13) $right($left(%klmme,%asy),1)  $right(%klmme,$calc($len(%klmme) - %asy)) | echo -a $remove(%tam,$chr(32)) }