$_=substr($ARGV[0],0,1);s/ //;$_="#"if/^$/;$c=$"x17;$u=$".$_ x5;$m="$_   $_";
$p=" $_ "."  $m"x2 ." $m"x2;$,=$\="\n";$i="$,$c$_ $_$_$u$u$_$u$u";$b=" $_$_$_"
x4 ." $p";$o=$c.$p;$s="$c $_  $u$_ $m$u$u$_$\$c     $c$_$\ $c$c$m$,$c$c$u";
print$i,$o,$b,$o,$s