package default;

my($i, %TABLE);

for ($i=0; $i < 256; $i++) {
    if (chr($i) =~ /[\w\s\n\f!@#$%^&*()-=+<>,.;':"\/?{}\[\]|]/) {
	$TABLE[$i] = chr($i);
    }
    else {
        $TABLE[$i] = sprintf("[0x%02X]", $i);
    }
#    print "\$TABLE[$i] = $TABLE[$i]\n";
}

sub parse {
    $c = $_[0];
    return $TABLE[ord($c)];
}

1;