proc backwards s {
  set z ""
  set i [string length $s]
  while {[incr i -1] > -1} {
        append z [string index $s $i]
  }
  return $z
}

while {[gets stdin b]>=0} {
        puts [backwards $b]
}

was used to reverse the Hint on The Cyrillic Virgil Sculpture .