((/nonstd/nsa/inverse-square.lisp::square (nil nil (realfix) nil nil nil nil) (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)) (/nonstd/nsa/inverse-square.lisp::square-interval (nil nil nil nil (if) nil nil) (nil nil nil (< interval interval) nil nil nil) ((y y) (1 1 0 1) 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)))