#!perl
use warnings;
use strict;

use bignum;

my $n = -1;

print "10 ** $n = " . 10 ** $n . "\n";