use warnings;
use strict;
use open qw/:std :utf8/;

print "+", "-Dec-Hex-Oct----+"x4, "\n";
for my $y (0..0x1F) {
	print "|";
	for my $c (map {$y|$_} 0x00,0x20,0x40,0x60) {
		printf " %3d  %02X %03o %s  |", $c, $c, $c,
			chr( $c<0x21 ? 0x2400+$c : $c==0x7F ? 0x2421 : $c );
	}
	print "\n";
}
print "+", (("-"x16)."+")x4, "\n";