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

MAIN:
{
	my $a = 326;
	my $b = -1;
	my $c = 2015;
	my $i1 = 65000;
	my $i2 = -2;
	my $i3 = 3261963;
	my $f1 = 3.1415926;
	my $f2 = 2.99792458e9;
	my $f3 = 1.234e-4;
	my $c1 = ord("A");
	my $c2 = ord("B");
	my $c3 = ord("C");
	my $s1 = "Apples";
	my $s2 = "and";
	my $s3 = "Bananas";
	my $b1 = 1;
	my $b2 = 0;

	my $s;

	$s = sprintf("Decimals: \%d \%d \%d", $a, $b, $c);
	print $s, "\n";
	$s = sprintf("Unsigned Decimals: \%u \%u \%u", $a, $b, $c);
	print $s, "\n";
	$s = sprintf("Hexadecimals: \%#x \%#x \%#x", $a, $b, $c);
	print $s, "\n";
	$s = sprintf("Long Decimals: \%d \%d \%d", $i1, $i2, $i3);
	print $s, "\n";
	$s = sprintf("Long Hexadecimals: \%016x \%016x \%016x", $i1, $i2, $i3);
	print $s, "\n";

	$s = sprintf("Fixed FP: \%f \%f \%f", $f1, $f2, $f3);
	print $s, "\n";
	$s = sprintf("Exponential FP: \%e \%e \%e", $f1, $f2, $f3);
	print $s, "\n";
	$s = sprintf("General FP: \%g \%g \%g", $f1, $f2, $f3);
	print $s, "\n";
	$s = sprintf("General FP with precision: \%.2g \%.2g \%.2g", $f1, $f2, $f3);
	print $s, "\n";

	$s = sprintf("Boolean: \%b \%b", $b1, $b2);
	print $s, "\n";
	$s = sprintf("Character: \%c \%c \%c", $c1, $c2, $c3);
	print $s, "\n";
	$s = sprintf("String: \%s \%s \%s", $s1, $s2, $s3);
	print $s, "\n";
}