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

MAIN:
{
	binmode(STDOUT, ":utf8");
	binmode(STDERR, ":utf8");
	binmode(STDIN, ":utf8");
	foreach my $arg (@ARGV) {
		utf8::decode($arg);
	}
	my $a = Utils::stodWithDefault($ARGV[0], 0);
	my $b = Utils::stodWithDefault($ARGV[1], 0);
	my $c = $a + $b;
	print Utils::messageFormat("\{0:f\} + \{1:f\} = \{2:f\}", $a, $b, $c), "\n";
}