#!/usr/bin/perl
      $_=';^) 8~)
          :~) ;~) :-)
             ;-) :=) ;=)
               ;~) %-) 8-)
 %=) :-)        :~) %^) :^)
 8^) 8-)         %~) :-) 8=)
 8-) %=)          8^) :-) ;^)
                  ;-) 8=) %-)
                  :-) ';# |8-]
                  y*:;8%*0-3*;
 #-) :-)          ;-) :-O |%^)
 #^) :^)         :-D :=) :^O)
 y*-^=~         *0-3*; s~(.)
               (.)\)~print+
             (split$J,$"
          ."aehiJlmno"
      ."prstuy")[
 $1+$2*4]~xeg;