fibbuzz in JSLisp

fibbuzz.scm

(define fib (lambda (n)
  (fib_in n 0 1)))
(define fib_in (lambda (n p1 p2)
  (if (== n 0)
      p1
     (fib_in (- n 1) (+ p1 p2) p1))))

(define fibbuzz (lambda (n)
    (if (>= (= a (fib n)) 1000)
        (String a)
        (if (== (% a 15) 0)
            (+ "fizzbuzz, " (fibbuzz (+ n 1)))
            (if (== (% a 5) 0)
                (+ "buzz, " (fibbuzz (+ n 1)))
                (if (== (% a 3) 0)
                    (+ "fizz, " (fibbuzz (+ n 1)))
                    (+ (String a) ", " (fibbuzz (+ n 1)))))))))

(display (fibbuzz 0))

resultCode.js

var fib = function (n){
    return (fib_in)(n,0,1)};

var fib_in = function (n,p1,p2){
    return (n == 0) ? p1 : (fib_in)((n - 1),(p1 + p2),p1)};

var fibbuzz = function (n){
    return ((a = (fib)(n)) >= 1000) ? (String)(a) : ((a % 15) == 0) ? ("fizzbuzz, " + (fibbuzz)((n + 1))) : ((a % 5) == 0) ? ("buzz, " + (fibbuzz)((n + 1))) : ((a % 3) == 0) ? ("fizz, " + (fibbuzz)((n + 1))) : ((String)(a) + ", " + (fibbuzz)((n + 1)))};

(display)((fibbuzz)(0));