;;
;;Header to include the file in spasm
;;

(define + (lambda (x y) (~+ x y)))
(define - (lambda (x y) (~- x y)))
(define * (lambda (x y) (~* x y)))
(define / (lambda (x y) (~/ x y)))
(define = (lambda (x y) (~= x y)))
(define remainder (lambda (x y) (~remainder x y)))
(define > (lambda (x y) (~> x y)))
(define < (lambda (x y) (~< x y)))
(define zero? (lambda (x) (~zero? x)))
(define sub1 (lambda (x) (~sub1 x)))
(define add1 (lambda (x) (~add1 x)))
(define random (lambda (x) (~random x)))
(define map (lambda (proc arg1) (~map proc arg1)))
(define eq? (lambda (x y) (~eq? x y)))
(define not (lambda (x) (~not x)))
(define set-car! (lambda (x y) (~set-car! x y)))
(define set-cdr! (lambda (x y) (~set-cdr! x y)))
(define cons (lambda (x y) (~cons x y)))
(define list (lambda x x))