#! /usr/bin/perl
for(split q,,,q,44444444x445C=@44x447B;?44x447C7@<4x467BCB84x4A6<BB64x47,.
q,5;<964x4CA<C=54x456548=4x468646=6x4C<847=8x554<465;x6>54464@x665447=Cx,.
q,7864469@x686446>:x98844866x998448>5x>9944<87x>89456<;x>7@4664Cx>664@84,.
q,;xA67C4847x@?@44@46x88<47<4Bx;4:4C<7@x7<5CC<7@x5>47C47<x554?B774x5C4;@,.
q,;@4x55<45C84x64444464xx,){if($i=4,/x/x){print"\n"}else{$x=-52+ord;while(
$i--){if(1<<$i<=$x){print'#';$x-=2**$i}else{print' '}}}}

                                
           ######  ###          
          #####  #### ##        
          ######  ####  #       
      #   ##### #######  #      
    ## #  # #   ### ###   #     
      ##   # ####    # #  #     
    ###### ##   #####  #   #    
       #  #    #     #  #  #    
      #  #    #       # #  #  # 
    #####    #        ###  # #  
   #   #    #         #    # ###
  # # #    #          #     ##  
  #   #    #          ###  #####
  ## #    #           #  # ###  
  #  #    #           # # #  ## 
 # # #   #           #    #   # 
 # # # # #           #  # #    #
# #  # # # #        #    #    ##
# #  #   # #       #  # #    ###
# #   ####        #   #     ####
# #   #   #     ##   #       ###
## #  #   ######     #        ##
##  # ####          ##        # 
 #   #  #         ###       ### 
 ###     ##     #####     ####  
  ###      ##########     ####  
   ## #       ######      ###   
   #   #    # #####   ##  ##    
   #####     #####   #####      
   #   ##          ##### #      
  #                       #