#!/run/current-system/profile/bin/env gxi-script


;; 
;;
;;Each new term in the Fibonacci sequence is generated by adding the previous two terms. By starting with 1 and 2, the first 10 terms will be:
;;
;;1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
;;
;;By considering the terms in the Fibonacci sequence whose values do not exceed four million, find the sum of the even-valued terms.
;                            (println (string-append (number->string current) " % 2 = 0 is: " (if (eqv? (modulo current 2) 0) "#t" "#f")))
;                            (println (string-append (number->string current) " % 2 is: " (number->string (modulo current 2))))

(define increment (lambda (current next largest)
                      (define even_total 0)
                      (if (eqv? largest 0)
                         (println (string-append "RETURN " (number->string even_total)))
                         (lambda ()
                            ((println "In lambda.")
                               (if (eqv? (modulo current 2) 0)
                               (+ even_total current))
                               (increment next (+ current next) (- largest 1)))))))

(define fibbonacci (lambda (integer) (increment 1 2 integer)))


(fibbonacci 10)