<>=~/:/; $h=$`%12; $m=$'/5; printf'%9s %5s%8s %2s%14s %s%16s %2s%14s %5s%8s %9s',map$_^$h?$_^$m?o:'m':$h^$m?h:x,0,11,1,10,2,9,3,8,4,7,5,6