((/nonstd/workshops/1999/analysis/exercise3.lisp::square (nil nil nil (*) nil nil nil) ((x x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/nonstd/workshops/1999/analysis/exercise3.lisp::find-zero-n-square (nil nil nil nil (if) nil nil) (nil nil (realfix) nil nil nil (recursive-call)) ((z n eps a) nil (realp integerp integerp realp 1+) (< < < +) nil nil nil) ((a i n i n eps eps z a eps i) (0) (square) nil nil nil nil) (nil nil nil (+) nil nil nil) ((a eps) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))