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