my ($in_out) = @_;
my ($out,$diver,$grade) = split(/,/, $in_out, 3);

$out = Math::BigInt->new($out);
my $rgrade = Math::BigInt->new(1/$grade);
$diver = Math::BigInt->new($diver);

my $in = $out**$rgrade*$diver;