#! /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' '}}}}
