4 lines
82 B
Tcl
4 lines
82 B
Tcl
package require Tclx
|
|
proc rot13 str {
|
|
translit "A-Za-z" "N-ZA-Mn-za-m" $str
|
|
}
|