Example 6: Reverse A Given Input String

#!/usr/bin/tclsh

puts "Enter a String: "
gets stdin str

set reverse_str [ string reverse $str]
puts "Reverse of $str is $reverse_str"

Output:

Enter a String:
eeniarT
Reverse of eeniarT is Trainee

Enter a String:
rats
Reverse of rats is star