CASE
====

Syntax: (case <keyform> {({<key> | ({<key> ...})}
                          {<form> ...}) ...})

CASE macht eine Fallauswahl. <keyform> wird
ausgewertet und es wird der Zweig aktiviert, für
den als erstes der Wert von <keyform> und <key>
übereinstimmt. Die entsprechenden Formen <form>
werden der Reihe nach ausgewertet. Als typische
<key>s sind Symbole, Ganze Zahlen, oder Zeichen
erlaubt (Alle Objekte dürfen benutzt werden).

Beispiel:      >(case 1 (3 'c)
                        (2 'b)
                        (1 'a)
                        (t 'Ende))
               A