#!/usr/bin/perl -lw

for $sale ( # SCORE 907 HI 287185

 ',   .                        ',
 ',   .           Y            ',
 ',   y                      Y ',
 ',   .                    Y   ',
 ',   y                     Y  ',
 ',   .                        ',
 ',   .  Y                     ',
 ',   .               Y        ',
 ',   M                Y       ',
 ',                         Y  ',
 ',             Y              ',
 ',          Y                 ',
 ',                       Y    ',
 ',                            ',
 ',                     Y      ',
 ',          Ymmmmmm           ',
 ',        @mmm           Y    ',
 ',                 Y          ',
 ',                            ',
 ',             Y  mm* m@      ',
 ',      Y           !         ',
 ',        Y         !         ',
 ',                Y !         ',
 ',          Y                 ',
 '                   ^    Y    '

){$_.=chr index    #  CENTIPERL!
($sale,'Y')+90}    #
s!Y(.)! \u$1!g;    #  LIVES:   4
s!^ |SCORE|!!g;    #  CREDITS: 1

print