(load "les9-2.scm")
(define f
  (let ((flip (make-flip)))
    (lambda (x)
      (if (= (+ x (flip)) 0)
          1
          0))))