sub k{vec'XXXXXXXXXXXX',$i++,4}$c[k][k]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>!~/:/..11;print"@$_
"for@c