$_=q%
       ###S#P#R#I#N#G##&:
       \|/  \|/  \|/  \|/
        0    o    o    0
        |    |    |    |
       \|/  \|/  \|/  \|/
       ###S#P#R#I#N#G##%;

       @                @
    #######          #######
   #=======#        #=======#
  ##;>>@<<;##      ##^<<0>>^##
 =split;#splt=    =egg;;;;;egg=
 $a          =   length     ;#;
;#####^^^^#####  ==^^==^^==^^==^
#=============#  #=============#
######^^^^#####  ==^^==^^==^^==^
print  #  print  #;   ^^^^    ;#
chr    (    ord  (    @@[9]    )
 - ord(   2)),    # @       @ #
 chr   ((  @@     [5]   +3  <<5
  )+1      ),      chr(      (
  $a<<2)%165        -1),chr(
   $a/2-48+         ($a>>1))
      ;#                ##