$#s=63-$_,print"@s@{[map{sprintf('%b',$'^$'-$_^$_)%9||'.'}!//..$_]}@s
"for 0..63