print +( split '\.', $out ** ( 1/$grade ) * $diver )[ 0 ];