; this is a place where i can type code

; comments are extremely useful!!! :)

(define (absolute-value x)
  (cond ((> x 0) x)
        ((= x 0) x)
        ((< x 0) (* x -1))))

; here's a shorter absolute-value function

(define (absolute-value-2 x)
  (cond ((< x 0) (- x))
        (t x)))

(define (fibonacci n)
  (cond ((< n 0) (fibonacci (abs n)))
        ((= n 0) 0)
        ((= n 1) 1)
        ((> n 1) (+ (fibonacci (- n 1))
                    (fibonacci (- n 2))))))

(define (fibonacci-list n)
  (cond ((= n 0) nil)
        ((> n 0) (cons (fibonacci n) (fibonacci-list (- n 1))))))