#!/usr/bin/env perl
use utf8;
###############################################################################
# This program prints a multiplication table for 16s.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    print 0x0, " \x{D7} ", 0x10, " = ", 0x0, "\n";
    print 0x1, " \x{D7} ", 0x10, " = ", 0x10, "\n";
    print 0x2, " \x{D7} ", 0x10, " = ", 0x20, "\n";
    print 0x3, " \x{D7} ", 0x10, " = ", 0x30, "\n";
    print 0x4, " \x{D7} ", 0x10, " = ", 0x40, "\n";
    print 0x5, " \x{D7} ", 0x10, " = ", 0x50, "\n";
    print 0x6, " \x{D7} ", 0x10, " = ", 0x60, "\n";
    print 0x7, " \x{D7} ", 0x10, " = ", 0x70, "\n";
    print 0x8, " \x{D7} ", 0x10, " = ", 0x80, "\n";
    print 0x9, " \x{D7} ", 0x10, " = ", 0x90, "\n";
    print 0xa, " \x{D7} ", 0x10, " = ", 0xa0, "\n";
    print 0xb, " \x{D7} ", 0x10, " = ", 0xb0, "\n";
    print 0xc, " \x{D7} ", 0x10, " = ", 0xc0, "\n";
    print 0xd, " \x{D7} ", 0x10, " = ", 0xd0, "\n";
    print 0xe, " \x{D7} ", 0x10, " = ", 0xe0, "\n";
    print 0xf, " \x{D7} ", 0x10, " = ", 0xf0, "\n";
    print 0x10, " \x{D7} ", 0x10, " = ", 0x100, "\n";
}