#!/usr/bin/perl
foreach $foo (0..23)
{
  printf "%3o: %c  %3o: %c  %3o: %c  %3o: %c  %3o: %c  %3o: %c  %3o: %c  %3o: %c\n",$foo+32,$foo+32,$foo+56,$foo+56,$foo+80,$foo+80,$foo+104,$foo+104,$foo+160,$foo+160,$foo+184,$foo+184,$foo+208,$foo+208,$foo+232,$foo+232;
}