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