#lang racket
(define bissextile
  (lambda (x)
    ( if (= (modulo x 4) 0)
         (if (not (= ( modulo x 100) 0))
             (#t)
             (if (= ( modulo x 400) 0)
                 (#t)
                 (#f))
            )
         (#f))
    )
  )