(import (scheme base)
        (scheme write)
        (scheme file)
        (scheme eval)
        (scheme process-context)
        (cyclone foreign))


(define-syntax while
  (syntax-rules ()
    ((while condition . body)
     (let loop ()
       (cond (condition
               (begin . body)
               (loop)))))))