#!/usr/bin/perl -w
use strict;
use Math::BigFloat ':constant';

my ($out,$diver,$grade) = (2.84894533078051,5,0.002);
my $in = Math::BigFloat->new(($out)**(1/$grade)*$diver);

print $in;