{{ Newton's Method {{ Calculates square roots using Newton's Method {{ Juliet 2004.0 $lib rout main def count:rat, number:rat, last:rat, root:rat print "Enter the number to calculate the square root of: " number <- readr root <- number loop (count < 20) and (((root-last) * (root-last)) > 0.0000000000001) last <- root root <- (number/root + root) / 2 count <- count + 1 printn "Trial #" & str int count & ": " & str root printn "Final Result: " & str root