s = "asdf"
print "'"; s; "' reversed is '"; reverse(s); "'"
end

function reverse(a)
	b = ""
	for i = 1 to length(a)
		b = mid(a, i, 1) + b
	next i
	return b
end function