[*t -] | *rest] *rest) .

(variiere_melodie2 #[0 100) *d *1 *t=#[1/8 1/4]

 *t2 *n1 *n2 [[*tt *n1] [*tt -]

              [*tt *n2] | *rest] *rest) <-

  (prod *t 2/3 *tt) .

(variiere_rhythmus21 #[0 33) *t *t2 *t2

 *t2 *t) <- .

(variiere_rhythmus21 #[0 66) *t *t2 *t

 *t2 *t2) <- .

(variiere_rhythmus21 #[0 100) *t *t2

 *tt *tt *tt) <-

  (prod *t 2/3 *tt) .

(define variante) !

(variante takt2 R bass {bass:{takt2:{R:[[4 *n1] [4 *n2]]}}} [*t0 | *1] [*t3 | *2] *scala *breite *p_neu) <-

  (test)

  (ton *stimme {*scala:*n2} *t2)

  (sum *d *t2 *t3)

  (abs *a *d)

  (random *z 100)

  (übergang *z bass *a *d *t0 *t3 [[4 *n1] [4 *n2]] *scala *breite *p1) /

  (bilde_variante *stimme 4 *breite *p1 *p_neu) .

(variante *t *h *stimme {*stimme:{*t:{*h:*p}}} *links *rechts *scala *breite *p_neu) <- /

  (bilde_variante *stimme 4 *breite *p *p_neu) .

(define bilde_variante) !

(bilde_variante *stimme *tiefe *breite [] []) <- .

(bilde_variante *stimme 0 *breite *pattern *pattern) <- / .

(bilde_variante *stimme *tiefe 0 *pattern *pattern) <- / .

(bilde_variante *stimme *tiefe *breite [[*t1 *n1] [*t2 *n2] | *rest] *p_neu1) <-

  (num *n1)

  (num *n2)

  (num *t1)

  (num *t2)

  (random *zufall 100)

  (variiere *t1 *t2 *zufall *breite *n1 *n2 *p_neu *rest) /

  (sum *tiefe1 1 *tiefe)

  (bilde_variante *stimme *tiefe1 *breite *p_neu *p_neu1) .