#! perl
use strict;
use warnings;
use bigint;

my $m = '10';
my $k =  '2';
 ++$k;
print $m / $k,    "\n";
print $k->sign(), "\n";