my $r4 = sqrt sqrt $num;