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

MAIN:
{
	my $a = 3;
	my $b = 5;
	my $c = 2;
	my $d = 3.1415926;
	my $e = 4.0;

	print "-b = ", (-$b), "\n";
	print "a + b = ", ($a + $b), "\n";
	print "a + -b = ", ($a + -$b), "\n";
	print "-a + b = ", (-$a + $b), "\n";
	print "-a + -b = ", (-$a + -$b), "\n";
	print "a - b = ", ($a - $b), "\n";
	print "a - -b = ", ($a - -$b), "\n";
	print "-a - b = ", (-$a - $b), "\n";
	print "-a - -b = ", (-$a - -$b), "\n";
	print "b * c = ", ($b * $c), "\n";
	print "b * -c = ", ($b * -$c), "\n";
	print "-b * c = ", (-$b * $c), "\n";
	print "-b * -c = ", (-$b * -$c), "\n";
	print "b / c = ", ($b / $c), "\n";
	print "b / -c = ", ($b / -$c), "\n";
	print "-b / c = ", (-$b / $c), "\n";
	print "-b / -c = ", (-$b / -$c), "\n";
	print "b // c = ", (int($b / $c)), "\n";
	print "b // -c = ", (int($b / -$c)), "\n";
	print "-b // c = ", (int(-$b / $c)), "\n";
	print "-b // -c = ", (int(-$b / -$c)), "\n";
	print "b \% a = ", ($b % $a), "\n";
	print "b \% -a = ", ($b % -$a), "\n";
	print "-b \% a = ", (-$b % $a), "\n";
	print "-b \% -a = ", (-$b % -$a), "\n";
	print "d + e = ", ($d + $e), "\n";
	print "d - e = ", ($d - $e), "\n";
	print "d * e = ", ($d * $e), "\n";
	print "e / d = ", ($e / $d), "\n";
	print "e // d = ", (int($e / $d)), "\n";
}