#lang racket/base

;;; This benchmark is a adapted from the version from Grift
;;; Original source: https://github.com/Gradual-Typing/benchmarks
;;; Since there was no racket version of cps-even-odd we adapted
;;; the Grift version.

(define (even? n k)
  (if (= n 0)
      (k #t)
      (odd? (- n 1) k)))

(define (odd? n k)
  (if (= n 0)
      (k #f)
      (even? (- n 1) k)))

(define (empty-k k) k)

(define (main)
    (display (even? (read) empty-k)))

(time (main))
