#!/usr/bin/perl
use v5.14;
use Data::Dumper;
$_="0123456789";
map$c>>$_&1?' ':'#',(0..6) } ("gY3:Yg{?19\x4;;{ 52=Y52Md4k\x5kT52JE52Ixz
r~xzM52M]52E"=~s/(\d)(.)/$2x
$1/ger
=~/./gs
); for$l(0..6) {
$c=$_;
$a[$c*49+7*$_+$l];
} (0..6)
} (/./g)
}
IyEvdXNyL2Jpbi9wZXJsCnVzZSB2NS4xNDsKdXNlIERhdGE6OkR1bXBlcjsKbm8gc3RyaWN0OwokXz0iMDEyMzQ1Njc4OSI7CgpAYT1tYXAgewogICAgICAgICRjPW9yZF40OwogICAgbWFwJGM+PiRfJjE/JyAnOicjJywoMC4uNikKfSAoImdZMzpZZ3s/MTlceDQ7O3sJNTI9WTUyTWQ0a1x4NWtUNTJKRTUySXh6CnJ+eHpNNTJNXTUyRSI9fnMvKFxkKSguKS8kMngkMS9nZXI9fi8uL2dzKTsKZm9yJGwoMC4uNikgewogICAgICAgIHNheSBtYXAgewogICAgICAgICAgICAgICAgJGM9JF87CiAgICAgICAgICAgICAgICAiICIsbWFwIHsKICAgICAgICAgICAgICAgICAgICAgICAgJGFbJGMqNDkrNyokXyskbF07CiAgICAgICAgICAgICAgICB9ICgwLi42KQogICAgICAgIH0gKC8uL2cpCn0K