#!/usr/bin/env perl
use utf8;
use Utils;
use strict;
use warnings;

MAIN:
{
	my $a = 0x5555AAAA;
	my $b = 0x036C36CF;

	print Utils::messageFormat("Bitwise a AND b : \{0:08x\}", (Utils::bitwiseAnd32($a, $b))), "\n";
	print Utils::messageFormat("Bitwise a OR b : \{0:08x\}", (Utils::bitwiseOr32($a, $b))), "\n";
	print Utils::messageFormat("Bitwise a XOR b : \{0:08x\}", (Utils::bitwiseXOr32($a, $b))), "\n";
	print Utils::messageFormat("Compliment a : \{0:08x\}", (Utils::complement32($a))), "\n";
	print Utils::messageFormat("Compliment b : \{0:08x\}", (Utils::complement32($b))), "\n";
}