$"='|';@b{@b=map{$c*=2;map{sprintf"%.$b",$c++}($++)x$_}4,3,6,2,6,5,4,12,11,8,4}=((map chr,0..27),q[ !"#$%&(+-')*./239<>?,1456:@A07;=]=~/./gs);$_=unpack'B*',<<''; dM"H