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