#!/afs/athena/contrib/perl/p
if (-t STDIN) {
   $mess = "Type your message now.  End with ^D or a dot by itself.\n";
   if (-t STDOUT) {
      print $mess; }
   else {
      open(TTY, "+>/dev/tty");
      select(TTY);
      $| = 1;
      select(STDOUT);
      print TTY $mess;
      close TTY; }; };
while (<STDIN>) {
   chop;
   exit if $_ eq ".";
   s|\'|\200|go;
   s|\`|\'|go;
   s|\200|\`|go;

   s|\}|\200|go;
   s|\{|\}|go;
   s|\200|\{|go;

   s|\<|\200|go;
   s|\>|\<|go;
   s|\200|\>|go;

   s|\[|\200|go;
   s|\]|\[|go;
   s|\200|\]|go;

   s|\(|\200|go;
   s|\)|\(|go;
   s|\200|\)|go;

   $rev = reverse $_; }
continue {print $rev,"\n";}