sub f{$x%$_||f(local$x=$x/$_)for$_||2..--$n&&.5+$x**(1/($n+1));$%+=!$n++}print f$x=<>=~$"+$',$n=$`