or download this
perl -e 'for$r(0..511){$t=$/;@s=((0)x40,1,($r&1)x39);
for(1..28){@s=map($r>>(8-4*$s[$_-1]-2*$s[$_]-$s[$_+1])&1,
1..78);unshift@s,$s[0];push@s,$s[-1];$t.=join"",map((".",
"#")[$_],@s),$/;};$h{$t}.=sprintf"%03x ",$r;};print$h{$_},
$_ while$_=each%h;' | less