#!/usr/bin/perl

for ($i=1; $i<64; $i++) {
  print(sprintf("%02X: ",$i),("0x".sprintf("%X",$i))+0,"\n");
}