;; Serie 11, Aufgabe 44:

;;; Beispieldefinitionen
(define pool-1 
  (konstr-strPool))

(define pool-2
  (konstr-strPool))

;;; Tests
(pool-1 'anzeigen-strPool)              ;; pool-1 ist noch leer

(define s1 (konstr-str "Ha" pool-1))    ;; "Ha" in pool-1 speichern
(sel-str s1)                            ;; liefert "Ha"
(pool-1 'anzeigen-strPool)              ;; pool-1 enthaelt Ha

(define s2 (konstr-str "Hallo" pool-1)) ;; "Hallo" in pool-1 speichern
(sel-str s2)                            ;; liefert "Hallo"
(pool-1 'anzeigen-strPool)              ;; pool-1 enthaelt HaHallo

(define s3 (konstr-str "aHa" pool-1))   ;; "aHa" in pool-1 speichern
(sel-str s3)                            ;; liefert "aHa"
(pool-1 'anzeigen-strPool)              ;; pool-1 enthaelt HaHallo

(define s4 (konstr-str "Hal" pool-1))   ;; "Hal" in pool-1 speichern
(sel-str s4)                            ;; liefert "Hal"
(pool-1 'anzeigen-strPool)              ;; pool-1 enthaelt HaHallo

(sel-str s1)                            ;; liefert "Ha"
(sel-str s2)                            ;; liefert "Hallo"
(sel-str s3)                            ;; liefert "aHa"
(sel-str s4)                            ;; liefert "Hal"

(pool-2 'anzeigen-strPool)              ;; pool-2 ist noch leer

(define t1 (konstr-str "Moin" pool-2))  ;; "Moin" in pool-2 speichern
(sel-str t1)                            ;; liefert "Moin"
(pool-2 'anzeigen-strPool)              ;; pool-2 enthaelt Moin

(pool-1 'anzeigen-strPool)              ;; pool-1 enthaelt immer noch HaHallo