sub sqroot {
#23456789_123456789_123456789_123456
$g++;$g=($_[0]/$g+$g)/2for-1..pop;$g
}