(define (random-list number-of-randoms)
  (if (<= number-of-randoms 0)
    nil
    (cons (random 12) (random-list (- number-of-randoms 1)))))

(define (add-one input-list)
  (if (null? input-list)
    nil
    (cons (+ (car input-list) 1)
          (add-one (cdr input-list)))))

(define (sum-list-helper input-list sum)
  (if (null? input-list)
    sum
    (sum-list-helper (cdr input-list) (+ (car input-list) sum))))
    
(define (sum-list input-list)
  (sum-list-helper input-list 0))

(define (self-swallowing input-list)
  (if (null? input-list)
    nil
    (append input-list (self-swallowing (cdr input-list)))))

(define (end-swallowing input-list)
  (if (null? input-list)
    nil
    (append input-list (end-swallowing (reverse (cdr (reverse input-list)))))))

(events (let* ((my-random-list (random-list 15)))
          (append (uncool-function my-random-list)
                  (even-less-cool-function my-random-list)))
        "test.mid")

(if (and (< pitch 60)
         (< velocity 30)
         (>= duration 1.0))
  (set! velocity (+ velocity 30))
  (set! velocity (- velocity 10)))

(if (or (< pitch 0)
        (> pitch 127)
        (< duration 0.0)
        (> velocity 127))
  (complain-about-bad-values)
  (do-the-right-thing))