(define (binary x)
  (define (BINrec X)
    (cond ((= X 0) (display "0"))
          ;iedereen zet onderstaande test erbij, maar deze hoeft niet
          ;((= X 1) (display "1"))
          ((even? X) (BINrec (quotient X 2)) (display "0"))
          (else (BINrec (quotient x 2)) (display "1"))))
  (binrec x)
  (newline))