lib.scm

;; (define push
;;   (lambda (array scalar)
;;     '(array . scalar)))

(define puts
  (lambda (text)
    (display text)(newline)))

(define print
  (lambda (content)
    (if (list? content)
        (for content display)
        (display content))))

;; this is a for loop like ruby
(define for
  (lambda (enum proc)
    (proc (car enum))
    (if (not (null? (cdr enum)))
        (for (cdr enum) proc))))

(define range
  (lambda (body end)
    (if (list? body)
        (if (> (+ 1 (- end (car body))) (length body))
            (range (append! body (list (+ (car body) (length body)))) end)
            (cdr (cons 'nil body)))
        (range (list body) end))))