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