4 "vrati +1 pro otevrenou zavorku, -1 pro zavrenou a 0 pro ostatni znaky"
14 (define (uvozovky znak faktor)
15 "vrati faktor zavisly na tom zda jsme nebo nejsme uvnitr apostrofu, k tomu vyuziva predchozi stav"
17 (modulo (+ faktor 1) 2)
24 (define (zavorky text [debug #f] [soucet 0] [faktor 1])
25 "vypise soucet nezavrenych zavorek v retezci, zaporna cisla udavaji zavorky zavrene navic. ignoruje znaky v apostrofech. lze zapnout debug mod."
37 (if (non-empty-string? text)
38 (zavorky (substring text 1) debug (+ soucet (* (ohodnot (string-ref text 0)) faktor)) (uvozovky (string-ref text 0) faktor))
45 (zavorky "pokus (')))')((")
47 ;Ukazka vcetne debug modu
49 ;(zavorky "pokus (')))')((" #t)