#!/usr/bin/perl -w
# prints stuff upside down.
# (c) Weyfour WWWWolf 2000-05-18
# Inspired by WolfZone's similiar program =)

use strict;

while(<>) {
  chomp;

  # Punctuation
  #            !""()'',.
  tr/!""()'',./i``)(,,'`'/;

  # Numbers (Probably the easiest part)
  #             0123456789
  tr/0123456789/0l5Eh29L86/;

  # Characters
  #         abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
  tr/a-zA-Z/eqopaJ@y!f>jwuodbJs+n^mxhzV8D43J9HIf>IWNOJOJSLAAMXhZ/;

  print "", (reverse split //), "\n";
}