// Speak in ROT13 encoding

"/rot13"
{
	set i 0
	label mark
	if i < @text.num_letters
		if @text.letter[i] == "a"
			"n"
		else if @text.letter[i] == "a"
			"n"
		else if @text.letter[i] == "b"
			"o"
		else if @text.letter[i] == "c"
			"p"
		else if @text.letter[i] == "d"
			"q"
		else if @text.letter[i] == "e"
			"r"
		else if @text.letter[i] == "f"
			"s"
		else if @text.letter[i] == "g"
			"t"
		else if @text.letter[i] == "h"
			"u"
		else if @text.letter[i] == "i"
			"v"
		else if @text.letter[i] == "j"
			"w"
		else if @text.letter[i] == "k"
			"x"
		else if @text.letter[i] == "l"
			"y"
		else if @text.letter[i] == "m"
			"z"
		else if @text.letter[i] == "n"
			"a"
		else if @text.letter[i] == "o"
			"b"
		else if @text.letter[i] == "p"
			"c"
		else if @text.letter[i] == "q"
			"d"
		else if @text.letter[i] == "r"
			"e"
		else if @text.letter[i] == "s"
			"f"
		else if @text.letter[i] == "t"
			"g"
		else if @text.letter[i] == "u"
			"h"
		else if @text.letter[i] == "v"
			"i"
		else if @text.letter[i] == "w"
			"j"
		else if @text.letter[i] == "x"
			"k"
		else if @text.letter[i] == "y"
			"l"
		else if @text.letter[i] == "z"
			"m"
		else
			@text.letter[i]
		end if
		set i + 1
		goto mark
	end if
}