(def throws 10)
(def hits 0.0)

(def Rsquared [x] [y]
 (+ (* (- 0.5 x) (- 0.5 x)) (* (- 0.5 y) (- 0.5 y)) ) )
 (println Rsquared)
 (if (< Rsquared 0.25) (def hits (+ hits 1)))
 (def pi (* 4 (/ hits throws)) )
 (println pi)
)