(define test-cases
  '(
    (letter-initial? ";")
    (letter-initial? "%g;")
    (letter-initial? "PI")
    (letter-initial? "foo")
    (letter-initial? "234")
    (update-alist 'c add1 '((a . 11) (b . 12) (c . 13)))
    (update-alist 'c add1 '())
    (update-alist 'for symbol->string 
            '((one . "two") (two . "three") (three . "four") (four . five)))
    (update-alist 'four symbol->string 
            '((one . "two") (two . "three") (three . "four") (four . five)))
    (name-ci<? (make-name "john" "" "adams")
            (make-name "john" "quincy" "adams"))
    (name-ci<? (make-name "john" "quincy" "adams")
            (make-name "john" "" "adams"))
    (name-ci<? (make-name "Cecil" "" "Adams")
            (make-name "john" "quincy" "adams"))
    (name-ci<? (make-name "john" "" "adams")
            (make-name "cecil" "zotti" "adams"))
    (name-ci<? (make-name "john" "quincy" "adams")
            (make-name "george" "" "washington"))
    (name-ci<? (make-name "george" "" "washington")
            (make-name "john" "quincy" "adams"))
    (name-ci<? (make-name "john" "quincy" "adams")
            (make-name "George" "" "Washington"))
    (name-ci<? (make-name "George" "" "Washington")
            (make-name "john" "quincy" "adams"))
    (insertion-sort '(8 5 4 9 1 7 6 3 2) <)
    (insertion-sort (string->list "Math 42") char<?)
    (insertion-sort (string->list "Math 42") char-ci<?)
    (insertion-sort '("Hello" "there" "how" "are" "you") string<?)
    (insertion-sort '("Hello" "there" "how" "are" "you") string-ci<?)
    (let ((s (insertion-sort (list (make-name "George" "" "Washington")
                                   (make-name "John" "" "Adams")
                                   (make-name "Thomas" "" "Jefferson")
                                   (make-name "James" "" "Madison")
                                   (make-name "James" "" "Monroe")
                                   (make-name "John" "Quincy" "Adams"))
                             name-ci<?)))
      (for-each
       (lambda (x)
         (display (name-last x))
         (display ", ")
         (display (name-first x))
         (display " ")
         (display (name-middle x))
         (newline))
         s))
    (remove-duplicates '())
    (remove-duplicates '(#t #f))
    (remove-duplicates '(c a b c))
    (remove-duplicates '(m i s s i s s i p p i))
    (remove-old-associations '())
    (remove-old-associations '((#t . "true") (#f . "false")))
    (remove-old-associations '((c . 14) (a . 11) (b . 12) (c . 13)))
    (remove-old-associations '((m . 1) (i . 4) (s . 4) (s . 3)
                                       (i . 3) (s . 2)  (s . 1) 
                                       (i . 2) (p . 2) (p . 1) (i . 1)))
    (tokenize  
     (string-append
      " { f                 "
      "      declare x int ;"
      "      declare y real ;"
      "     { g"
      "        declare x real ;"
      "        declare z real ;"
      "        call f x ;"
      "        call g y ;"
      "      }"
      "      print x ;"  
      "   }"))
  ))

(define (test)
  (for-each 
   (lambda (x)
     (display "> ")
     (print x)
     (newline)
     (print (eval x))
     (newline))
   test-cases))

(test)