$:="s

 %s%14s

%";printf"%9s
%5s%8$:s%16$:5s%8s
%9s",map{map{($_^$`%12?o:x)&($_^$'/5?o:'}')}$_,11-$_}<>!~/:/..5