a=*$<
s='*----'*8+'*
'
s+=(s.tr('*-','| ')*2+s)*8
56.times{|i|a[j=i%8][i/=8]==a[j][i+1]&&s[k=126*j+5*i+47]=s[k+42]=' '
a[i][j]==a[i+1][j]&&s[126*i+5*j+127,4]=' '*4}
$><<s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).