(include "lib/core.scm")

(define (thing x)
  (if (eq? x -1)
      "yes"
      "no"))

(thing (- 0 1))