;;;;
;;;; genturfahi - lo la .ckim. ke pe'a jajgau ratcu ke'e genturfa'i
;;;;            `-> A Scheme packrat parser.
;;;;
;;;; Copyright (c) 2010 ".alyn.post." <alyn.post@lodockikumazvati.org>
;;;;
;;;; Permission to use, copy, modify, and/or distribute this software for any
;;;; purpose with or without fee is hereby granted, provided that the above
;;;; copyright notice and this permission notice appear in all copies.
;;;;
;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;;;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;;;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;;;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;;;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;;;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;;;

(define genturfahi-peg-gerna
  (let ()
    (define cfari-5
      (nunjavni-secuxna
        (lambda () "cfari")
        (lambda (porsi zvati mapti namapti)
          (cfari-6 porsi zvati mapti namapti))))
    (define cfari-samselpla-2
      (nunjavni-secuxna
        (lambda () "cfari-samselpla")
        (lambda (porsi zvati mapti namapti)
          (cfari-samselpla-7 porsi zvati mapti namapti))))
    (define gerna-3
      (nunjavni-secuxna
        (lambda () "gerna")
        (lambda (porsi zvati mapti namapti)
          (gerna-9 porsi zvati mapti namapti))))
    (define smuni-8
      (nunjavni-secuxna
        (lambda () "smuni")
        (lambda (porsi zvati mapti namapti)
          (smuni-12 porsi zvati mapti namapti))))
    (define naselci-10
      (nunjavni-secuxna
        (lambda () "naselci")
        (lambda (porsi zvati mapti namapti)
          (naselci-13 porsi zvati mapti namapti))))
    (define javni-11
      (nunjavni-secuxna
        (lambda () "javni")
        (lambda (porsi zvati mapti namapti)
          (javni-16 porsi zvati mapti namapti))))
    (define jonai-14
      (nunjavni-secuxna
        (lambda () "jonai")
        (lambda (porsi zvati mapti namapti)
          (jonai-17 porsi zvati mapti namapti))))
    (define je-15
      (nunjavni-secuxna
        (lambda () "je")
        (lambda (porsi zvati mapti namapti)
          (je-20 porsi zvati mapti namapti))))
    (define nastura-pajavni-18
      (nunjavni-secuxna
        (lambda () "nastura-pajavni")
        (lambda (porsi zvati mapti namapti)
          (nastura-pajavni-22 porsi zvati mapti namapti))))
    (define pajavni-21
      (nunjavni-secuxna
        (lambda () "pajavni")
        (lambda (porsi zvati mapti namapti)
          (pajavni-35 porsi zvati mapti namapti))))
    (define dot-zero-or-more-23
      (nunjavni-secuxna
        (lambda () "dot-zero-or-more")
        (lambda (porsi zvati mapti namapti)
          (dot-zero-or-more-36 porsi zvati mapti namapti))))
    (define dot-one-or-more-24
      (nunjavni-secuxna
        (lambda () "dot-one-or-more")
        (lambda (porsi zvati mapti namapti)
          (dot-one-or-more-37 porsi zvati mapti namapti))))
    (define dot-kuspe-25
      (nunjavni-secuxna
        (lambda () "dot-kuspe")
        (lambda (porsi zvati mapti namapti)
          (dot-kuspe-39 porsi zvati mapti namapti))))
    (define optional-26
      (nunjavni-secuxna
        (lambda () "optional")
        (lambda (porsi zvati mapti namapti)
          (optional-40 porsi zvati mapti namapti))))
    (define zero-or-more-27
      (nunjavni-secuxna
        (lambda () "zero-or-more")
        (lambda (porsi zvati mapti namapti)
          (zero-or-more-41 porsi zvati mapti namapti))))
    (define one-or-more-28
      (nunjavni-secuxna
        (lambda () "one-or-more")
        (lambda (porsi zvati mapti namapti)
          (one-or-more-42 porsi zvati mapti namapti))))
    (define kuspe-29
      (nunjavni-secuxna
        (lambda () "kuspe")
        (lambda (porsi zvati mapti namapti)
          (kuspe-43 porsi zvati mapti namapti))))
    (define and-predicate-30
      (nunjavni-secuxna
        (lambda () "and-predicate")
        (lambda (porsi zvati mapti namapti)
          (and-predicate-44 porsi zvati mapti namapti))))
    (define end-of-input-31
      (nunjavni-secuxna
        (lambda () "end-of-input")
        (lambda (porsi zvati mapti namapti)
          (end-of-input-45 porsi zvati mapti namapti))))
    (define not-predicate-32
      (nunjavni-secuxna
        (lambda () "not-predicate")
        (lambda (porsi zvati mapti namapti)
          (not-predicate-46 porsi zvati mapti namapti))))
    (define cmene-sumti-33
      (nunjavni-secuxna
        (lambda () "cmene-sumti")
        (lambda (porsi zvati mapti namapti)
          (cmene-sumti-47 porsi zvati mapti namapti))))
    (define selci-javni-34
      (nunjavni-secuxna
        (lambda () "selci-javni")
        (lambda (porsi zvati mapti namapti)
          (selci-javni-54 porsi zvati mapti namapti))))
    (define selci-naselci-48
      (nunjavni-secuxna
        (lambda () "selci-naselci")
        (lambda (porsi zvati mapti namapti)
          (selci-naselci-55 porsi zvati mapti namapti))))
    (define lerfu-selci-49
      (nunjavni-secuxna
        (lambda () "lerfu-selci")
        (lambda (porsi zvati mapti namapti)
          (lerfu-selci-57 porsi zvati mapti namapti))))
    (define lerfu-cmene-56
      (nunjavni-secuxna
        (lambda () "lerfu-cmene")
        (lambda (porsi zvati mapti namapti)
          (lerfu-cmene-58 porsi zvati mapti namapti))))
    (define valsi-selci-50
      (nunjavni-secuxna
        (lambda () "valsi-selci")
        (lambda (porsi zvati mapti namapti)
          (valsi-selci-60 porsi zvati mapti namapti))))
    (define valsi-lerfu-59
      (nunjavni-secuxna
        (lambda () "valsi-lerfu")
        (lambda (porsi zvati mapti namapti)
          (valsi-lerfu-61 porsi zvati mapti namapti))))
    (define klesi-selci-51
      (nunjavni-secuxna
        (lambda () "klesi-selci")
        (lambda (porsi zvati mapti namapti)
          (klesi-selci-63 porsi zvati mapti namapti))))
    (define klesi-lerfu-62
      (nunjavni-secuxna
        (lambda () "klesi-lerfu")
        (lambda (porsi zvati mapti namapti)
          (klesi-lerfu-66 porsi zvati mapti namapti))))
    (define klesi-cmene-64
      (nunjavni-secuxna
        (lambda () "klesi-cmene")
        (lambda (porsi zvati mapti namapti)
          (klesi-cmene-67 porsi zvati mapti namapti))))
    (define klesi-binxo-65
      (nunjavni-secuxna
        (lambda () "klesi-binxo")
        (lambda (porsi zvati mapti namapti)
          (klesi-binxo-68 porsi zvati mapti namapti))))
    (define denpabu-52
      (nunjavni-secuxna
        (lambda () "denpabu")
        (lambda (porsi zvati mapti namapti)
          (denpabu-69 porsi zvati mapti namapti))))
    (define samselpla-19
      (nunjavni-secuxna
        (lambda () "samselpla")
        (lambda (porsi zvati mapti namapti)
          (samselpla-72 porsi zvati mapti namapti))))
    (define samselpla-xadni-70
      (nunjavni-secuxna
        (lambda () "samselpla-xadni")
        (lambda (porsi zvati mapti namapti)
          (samselpla-xadni-73 porsi zvati mapti namapti))))
    (define samselpla-cmene-71
      (nunjavni-secuxna
        (lambda () "samselpla-cmene")
        (lambda (porsi zvati mapti namapti)
          (samselpla-cmene-74 porsi zvati mapti namapti))))
    (define girzu-javni-53
      (nunjavni-secuxna
        (lambda () "girzu-javni")
        (lambda (porsi zvati mapti namapti)
          (girzu-javni-75 porsi zvati mapti namapti))))
    (define namcu-38
      (nunjavni-secuxna
        (lambda () "namcu")
        (lambda (porsi zvati mapti namapti)
          (namcu-76 porsi zvati mapti namapti))))
    (define canlu-1
      (nunjavni-secuxna
        (lambda () "canlu")
        (lambda (porsi zvati mapti namapti)
          (canlu-79 porsi zvati mapti namapti))))
    (define canlubu-77
      (nunjavni-secuxna
        (lambda () "canlubu")
        (lambda (porsi zvati mapti namapti)
          (canlubu-81 porsi zvati mapti namapti))))
    (define totoi-78
      (nunjavni-secuxna
        (lambda () "totoi")
        (lambda (porsi zvati mapti namapti)
          (totoi-82 porsi zvati mapti namapti))))
    (define CR-83
      (nunjavni-secuxna
        (lambda () "CR")
        (lambda (porsi zvati mapti namapti)
          (CR-84 porsi zvati mapti namapti))))
    (define LF-85
      (nunjavni-secuxna
        (lambda () "LF")
        (lambda (porsi zvati mapti namapti)
          (LF-86 porsi zvati mapti namapti))))
    (define CRLF-80
      (nunjavni-secuxna
        (lambda () "CRLF")
        (lambda (porsi zvati mapti namapti)
          (CRLF-87 porsi zvati mapti namapti))))
    (define FAhO-4
      (nunjavni-secuxna
        (lambda () "FAhO")
        (lambda (porsi zvati mapti namapti)
          (FAhO-88 porsi zvati mapti namapti))))
    (define cfari-6
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-cfari
          (morji-nunjavni-je
            (list canlu-1
                  (morji-nunjavni-* cfari-samselpla-2 nastura: #t)
                  canlu-1
                  (morji-nunjavni-cmene gerna-3 cmene: "gerna")
                  (morji-nunjavni-nastura FAhO-4))
            porjahe:
            #t))))
    (define cfari-samselpla-7
      (nunjavni-morji
        (morji-nunjavni-samselpla-cabna
          samselpla-cfari-samselpla
          (morji-nunjavni-je
            (list (morji-nunjavni-lerfu #\{ porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1)
                  (morji-nunjavni-+
                    (morji-nunjavni-je
                      (list (morji-nunjavni-!
                              (morji-nunjavni-lerfu #\})
                              porjahe:
                              #t)
                            (morji-nunjavni-. porjahe: #t))
                      porsumti:
                      #t
                      porjahe:
                      #t)
                    cmene:
                    "rodalerfu"
                    porsumti:
                    #t
                    porjahe:
                    #t)
                  (morji-nunjavni-lerfu #\} porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1))
            porsumti:
            #t
            porjahe:
            #t))))
    (define gerna-9 (nunjavni-morji (morji-nunjavni-* smuni-8)))
    (define smuni-12
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-smuni
          (morji-nunjavni-je
            (list (morji-nunjavni-cmene naselci-10 cmene: "naselci")
                  (morji-nunjavni-valsi "<-")
                  canlu-1
                  (morji-nunjavni-cmene javni-11 cmene: "javni"))
            porjahe:
            #t))))
    (define naselci-13
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-naselci
          (morji-nunjavni-je
            (list (morji-nunjavni-char-set
                    (char-set-union
                      char-set:letter+digit
                      (char-set #\$ #\% #\: #\= #\> #\^ #\~ #\_ #\@))
                    cmene:
                    "cfari")
                  (morji-nunjavni-char-set-*
                    (char-set-union
                      char-set:letter+digit
                      (char-set
                        #\$
                        #\%
                        #\:
                        #\=
                        #\>
                        #\^
                        #\~
                        #\_
                        #\@
                        #\.
                        #\!
                        #\&
                        #\/
                        #\\
                        #\-))
                    cmene:
                    "fanmo")
                  canlu-1)
            porjahe:
            #t))))
    (define javni-16
      (nunjavni-morji (morji-nunjavni-jonai (list jonai-14 je-15))))
    (define jonai-17
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-jonai
          (morji-nunjavni-je
            (list (morji-nunjavni-cmene je-15 cmene: "cfari" porjahe: #t)
                  (morji-nunjavni-+
                    (morji-nunjavni-je
                      (list (morji-nunjavni-lerfu #\/ porjahe: #t)
                            (morji-nunjavni-porjahe canlu-1)
                            (morji-nunjavni-porjahe je-15))
                      porsumti:
                      #t
                      porjahe:
                      #t)
                    cmene:
                    "fanmo"
                    porsumti:
                    #t
                    porjahe:
                    #t))
            porsumti:
            #t
            porjahe:
            #t))))
    (define je-20
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-je
          (morji-nunjavni-je
            (list (morji-nunjavni-+ nastura-pajavni-18 cmene: "javni")
                  (morji-nunjavni-? samselpla-19 cmene: "samselpla"))
            porjahe:
            #t))))
    (define nastura-pajavni-22
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-nastura-javni
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\`)
                          canlu-1
                          (morji-nunjavni-cmene pajavni-21 cmene: "javni"))
                    porjahe:
                    #t))
                pajavni-21))))
    (define pajavni-35
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list dot-zero-or-more-23
                dot-one-or-more-24
                dot-kuspe-25
                optional-26
                zero-or-more-27
                one-or-more-28
                kuspe-29
                and-predicate-30
                end-of-input-31
                not-predicate-32
                (morji-nunjavni-samselpla
                  samselpla-pajavni-cmene
                  (morji-nunjavni-je
                    (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene")
                          (morji-nunjavni-cmene selci-javni-34 cmene: "javni"))
                    porjahe:
                    #t))))))
    (define dot-zero-or-more-36
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-.*
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene")
                  (morji-nunjavni-lerfu #\.)
                  canlu-1
                  (morji-nunjavni-lerfu #\*)
                  canlu-1)
            porjahe:
            #t))))
    (define dot-one-or-more-37
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-.+
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene")
                  (morji-nunjavni-lerfu #\.)
                  canlu-1
                  (morji-nunjavni-lerfu #\+)
                  canlu-1)
            porjahe:
            #t))))
    (define dot-kuspe-39
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-.kuspe
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene" porjahe: #t)
                  (morji-nunjavni-lerfu #\. porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1)
                  (morji-nunjavni-lerfu #\{ porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1)
                  (morji-nunjavni-? namcu-38 cmene: "my" porjahe: #t)
                  (morji-nunjavni-?
                    (morji-nunjavni-je
                      (list (morji-nunjavni-lerfu
                              #\,
                              nastura:
                              #f
                              cmene:
                              "slakabu"
                              porjahe:
                              #t)
                            (morji-nunjavni-porjahe canlu-1))
                      porsumti:
                      #t
                      porjahe:
                      #t)
                    ni:
                    2
                    porsumti:
                    #t
                    porjahe:
                    #t)
                  (morji-nunjavni-? namcu-38 cmene: "ny" porjahe: #t)
                  (morji-nunjavni-lerfu #\} porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1))
            porsumti:
            #t
            porjahe:
            #t))))
    (define optional-40
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-?
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene")
                  (morji-nunjavni-cmene selci-javni-34 cmene: "javni")
                  (morji-nunjavni-lerfu #\?)
                  canlu-1)
            porjahe:
            #t))))
    (define zero-or-more-41
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-*
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene")
                  (morji-nunjavni-cmene selci-javni-34 cmene: "javni")
                  (morji-nunjavni-lerfu #\*)
                  canlu-1)
            porjahe:
            #t))))
    (define one-or-more-42
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-+
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene")
                  (morji-nunjavni-cmene selci-javni-34 cmene: "javni")
                  (morji-nunjavni-lerfu #\+)
                  canlu-1)
            porjahe:
            #t))))
    (define kuspe-43
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-kuspe
          (morji-nunjavni-je
            (list (morji-nunjavni-? cmene-sumti-33 cmene: "cmene" porjahe: #t)
                  (morji-nunjavni-cmene
                    selci-javni-34
                    cmene:
                    "javni"
                    porjahe:
                    #t)
                  (morji-nunjavni-lerfu #\{ porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1)
                  (morji-nunjavni-? namcu-38 cmene: "my" porjahe: #t)
                  (morji-nunjavni-?
                    (morji-nunjavni-je
                      (list (morji-nunjavni-lerfu
                              #\,
                              nastura:
                              #f
                              cmene:
                              "slakabu"
                              porjahe:
                              #t)
                            (morji-nunjavni-porjahe canlu-1))
                      porsumti:
                      #t
                      porjahe:
                      #t)
                    ni:
                    2
                    porsumti:
                    #t
                    porjahe:
                    #t)
                  (morji-nunjavni-? namcu-38 cmene: "ny" porjahe: #t)
                  (morji-nunjavni-lerfu #\} porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1))
            porsumti:
            #t
            porjahe:
            #t))))
    (define and-predicate-44
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-&
          (morji-nunjavni-je
            (list (morji-nunjavni-lerfu #\&)
                  canlu-1
                  (morji-nunjavni-cmene selci-javni-34 cmene: "javni"))
            porjahe:
            #t))))
    (define end-of-input-45
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-fanmo
          (morji-nunjavni-je
            (list (morji-nunjavni-lerfu #\!)
                  canlu-1
                  (morji-nunjavni-lerfu #\.)
                  canlu-1)
            porjahe:
            #t))))
    (define not-predicate-46
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-!
          (morji-nunjavni-je
            (list (morji-nunjavni-lerfu #\!)
                  canlu-1
                  (morji-nunjavni-cmene selci-javni-34 cmene: "javni"))
            porjahe:
            #t))))
    (define cmene-sumti-47
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-cmene-sumti
          (morji-nunjavni-je
            (list (morji-nunjavni-valsi "#:")
                  (morji-nunjavni-char-set
                    (char-set-union
                      char-set:letter+digit
                      (char-set #\$ #\% #\: #\= #\> #\^ #\~ #\_ #\@))
                    cmene:
                    "cfari")
                  (morji-nunjavni-char-set-*
                    (char-set-union
                      char-set:letter+digit
                      (char-set
                        #\$
                        #\%
                        #\:
                        #\=
                        #\>
                        #\^
                        #\~
                        #\_
                        #\@
                        #\.
                        #\!
                        #\&
                        #\/
                        #\\
                        #\-))
                    cmene:
                    "fanmo")
                  canlu-1)
            porjahe:
            #t))))
    (define selci-javni-54
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list selci-naselci-48
                lerfu-selci-49
                valsi-selci-50
                klesi-selci-51
                denpabu-52
                girzu-javni-53))))
    (define selci-naselci-55
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-selci-naselci
          (morji-nunjavni-je
            (list (morji-nunjavni-cmene naselci-10 cmene: "naselci")
                  (morji-nunjavni-! (morji-nunjavni-valsi "<-")))
            porjahe:
            #t))))
    (define lerfu-selci-57
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-stura-lerfu-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi ",#\\")
                          (morji-nunjavni-cmene lerfu-cmene-56 cmene: "lerfu")
                          canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-stura-lerfu-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi ",#\\")
                          (morji-nunjavni-. cmene: "lerfu")
                          canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi "#\\")
                          (morji-nunjavni-cmene lerfu-cmene-56 cmene: "lerfu")
                          canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi "#\\")
                          (morji-nunjavni-. cmene: "lerfu")
                          canlu-1)
                    porjahe:
                    #t))))))
    (define lerfu-cmene-58
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-lerfu-space
                  (morji-nunjavni-valsi "space" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-return
                  (morji-nunjavni-valsi "return" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-linefeed
                  (morji-nunjavni-valsi "linefeed" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-newline
                  (morji-nunjavni-valsi "newline" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-tab
                  (morji-nunjavni-valsi "tab" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-lerfu-page
                  (morji-nunjavni-valsi "page" porjahe: #t))))))
    (define valsi-selci-60
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-stura-empty-string
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi ",\"\"") canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-empty-string
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi "\"\"") canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-stura-valsi-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi ",\"" porjahe: #t)
                          (morji-nunjavni-+
                            (morji-nunjavni-je
                              (list (morji-nunjavni-!
                                      (morji-nunjavni-lerfu #\")
                                      porjahe:
                                      #t)
                                    (morji-nunjavni-porjahe valsi-lerfu-59))
                              porsumti:
                              #t
                              porjahe:
                              #t)
                            cmene:
                            "valsi-lerfu"
                            porsumti:
                            #t
                            porjahe:
                            #t)
                          (morji-nunjavni-lerfu #\" porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1))
                    porsumti:
                    #t
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\" porjahe: #t)
                          (morji-nunjavni-+
                            (morji-nunjavni-je
                              (list (morji-nunjavni-!
                                      (morji-nunjavni-lerfu #\")
                                      porjahe:
                                      #t)
                                    (morji-nunjavni-porjahe valsi-lerfu-59))
                              porsumti:
                              #t
                              porjahe:
                              #t)
                            cmene:
                            "valsi-lerfu"
                            porsumti:
                            #t
                            porjahe:
                            #t)
                          (morji-nunjavni-lerfu #\" porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1))
                    porsumti:
                    #t
                    porjahe:
                    #t))))))
    (define valsi-lerfu-61
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-valsi-newline
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\n))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-return
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\r))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-tab
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\t))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-page
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\f))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-backslash
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\\))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-single-quote
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\'))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-double-quote
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\"))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-valsi-lerfu
                  (morji-nunjavni-je
                    (list (morji-nunjavni-! (morji-nunjavni-lerfu #\\))
                          (morji-nunjavni-. cmene: "lerfu"))
                    porjahe:
                    #t))))))
    (define klesi-selci-63
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-klesi-selci-*
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\[)
                          (morji-nunjavni-+
                            klesi-lerfu-62
                            cmene:
                            "klesi-lerfu")
                          (morji-nunjavni-valsi "]*")
                          canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-selci-+
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\[)
                          (morji-nunjavni-+
                            klesi-lerfu-62
                            cmene:
                            "klesi-lerfu")
                          (morji-nunjavni-valsi "]+")
                          canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-selci-kuspe
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\[ porjahe: #t)
                          (morji-nunjavni-+
                            klesi-lerfu-62
                            cmene:
                            "klesi-lerfu"
                            porjahe:
                            #t)
                          (morji-nunjavni-valsi "]" porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1)
                          (morji-nunjavni-lerfu #\{ porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1)
                          (morji-nunjavni-? namcu-38 cmene: "my" porjahe: #t)
                          (morji-nunjavni-?
                            (morji-nunjavni-je
                              (list (morji-nunjavni-lerfu
                                      #\,
                                      nastura:
                                      #f
                                      cmene:
                                      "slakabu"
                                      porjahe:
                                      #t)
                                    (morji-nunjavni-porjahe canlu-1))
                              porsumti:
                              #t
                              porjahe:
                              #t)
                            ni:
                            2
                            porsumti:
                            #t
                            porjahe:
                            #t)
                          (morji-nunjavni-? namcu-38 cmene: "ny" porjahe: #t)
                          (morji-nunjavni-lerfu #\} porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1))
                    porsumti:
                    #t
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-selci
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\[)
                          (morji-nunjavni-+
                            klesi-lerfu-62
                            cmene:
                            "klesi-lerfu")
                          (morji-nunjavni-lerfu #\])
                          canlu-1)
                    porjahe:
                    #t))))))
    (define klesi-lerfu-66
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list klesi-cmene-64
                klesi-binxo-65
                (morji-nunjavni-samselpla
                  samselpla-klesi-lerfu
                  (morji-nunjavni-je
                    (list (morji-nunjavni-! (morji-nunjavni-lerfu #\]))
                          (morji-nunjavni-. cmene: "klesi-lerfu"))
                    porjahe:
                    #t))))))
    (define klesi-cmene-67
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-alnum
                  (morji-nunjavni-valsi "[:alnum:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-alpha
                  (morji-nunjavni-valsi "[:alpha:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-ascii
                  (morji-nunjavni-valsi "[:ascii:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-blank
                  (morji-nunjavni-valsi "[:blank:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-cntrl
                  (morji-nunjavni-valsi "[:cntrl:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-digit
                  (morji-nunjavni-valsi "[:digit:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-graph
                  (morji-nunjavni-valsi "[:graph:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-jbolehu
                  (morji-nunjavni-valsi "[:jbole'u:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-jbocahu
                  (morji-nunjavni-valsi "[:jboca'u:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-lower
                  (morji-nunjavni-valsi "[:lower:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-odigit
                  (morji-nunjavni-valsi "[:odigit:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-print
                  (morji-nunjavni-valsi "[:print:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-punct
                  (morji-nunjavni-valsi "[:punct:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-space
                  (morji-nunjavni-valsi "[:space:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-upper
                  (morji-nunjavni-valsi "[:upper:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-xdigit
                  (morji-nunjavni-valsi "[:xdigit:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^alnum
                  (morji-nunjavni-valsi "[:^alnum:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^alpha
                  (morji-nunjavni-valsi "[:^alpha:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^ascii
                  (morji-nunjavni-valsi "[:^ascii:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^blank
                  (morji-nunjavni-valsi "[:^blank:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^cntrl
                  (morji-nunjavni-valsi "[:^cntrl:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^digit
                  (morji-nunjavni-valsi "[:^digit:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^graph
                  (morji-nunjavni-valsi "[:^graph:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^lower
                  (morji-nunjavni-valsi "[:^lower:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^odigit
                  (morji-nunjavni-valsi "[:^odigit:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^print
                  (morji-nunjavni-valsi "[:^print:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^punct
                  (morji-nunjavni-valsi "[:^punct:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^space
                  (morji-nunjavni-valsi "[:^space:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^upper
                  (morji-nunjavni-valsi "[:^upper:]" porjahe: #t))
                (morji-nunjavni-samselpla
                  samselpla-^xdigit
                  (morji-nunjavni-valsi "[:^xdigit:]" porjahe: #t))))))
    (define klesi-binxo-68
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-klesi-newline
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\n))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-return
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\r))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-tab
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\t))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-page
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\f))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-lbracket
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\[))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-rbracket
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\]))
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-klesi-backslash
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\\)
                          (morji-nunjavni-lerfu #\\))
                    porjahe:
                    #t))))))
    (define denpabu-69
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-denpabu
          (morji-nunjavni-je
            (list (morji-nunjavni-lerfu #\.) canlu-1)
            porjahe:
            #t))))
    (define samselpla-72
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-samselpla-balvi
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi "->" porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1)
                          (morji-nunjavni-jonai
                            (list (morji-nunjavni-porjahe samselpla-xadni-70)
                                  (morji-nunjavni-porjahe samselpla-cmene-71))
                            porsumti:
                            #t
                            porjahe:
                            #t))
                    porsumti:
                    #t
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-samselpla-cabna
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi "-|" porjahe: #t)
                          (morji-nunjavni-porjahe canlu-1)
                          (morji-nunjavni-jonai
                            (list (morji-nunjavni-porjahe samselpla-xadni-70)
                                  (morji-nunjavni-porjahe samselpla-cmene-71))
                            porsumti:
                            #t
                            porjahe:
                            #t))
                    porsumti:
                    #t
                    porjahe:
                    #t))))))
    (define samselpla-xadni-73
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-samselpla-xadni
          (morji-nunjavni-je
            (list (morji-nunjavni-lerfu #\{ porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1)
                  (morji-nunjavni-+
                    (morji-nunjavni-je
                      (list (morji-nunjavni-!
                              (morji-nunjavni-lerfu #\})
                              porjahe:
                              #t)
                            (morji-nunjavni-. porjahe: #t))
                      porsumti:
                      #t
                      porjahe:
                      #t)
                    cmene:
                    "rodalerfu"
                    porsumti:
                    #t
                    porjahe:
                    #t)
                  (morji-nunjavni-lerfu #\} porjahe: #t)
                  (morji-nunjavni-porjahe canlu-1))
            porsumti:
            #t
            porjahe:
            #t))))
    (define samselpla-cmene-74
      (nunjavni-morji
        (morji-nunjavni-samselpla
          samselpla-samselpla-cmene
          (morji-nunjavni-je
            (list (morji-nunjavni-char-set
                    (char-set-union
                      char-set:letter+digit
                      (char-set #\$ #\% #\: #\= #\> #\^ #\~ #\_ #\@))
                    cmene:
                    "cfari")
                  (morji-nunjavni-char-set-*
                    (char-set-union
                      char-set:letter+digit
                      (char-set
                        #\$
                        #\%
                        #\:
                        #\=
                        #\>
                        #\^
                        #\~
                        #\_
                        #\@
                        #\.
                        #\!
                        #\&
                        #\/
                        #\\
                        #\-))
                    cmene:
                    "fanmo")
                  canlu-1)
            porjahe:
            #t))))
    (define girzu-javni-75
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-samselpla
                  samselpla-empty-list
                  (morji-nunjavni-je
                    (list (morji-nunjavni-valsi "()") canlu-1)
                    porjahe:
                    #t))
                (morji-nunjavni-samselpla
                  samselpla-girzu-javni
                  (morji-nunjavni-je
                    (list (morji-nunjavni-lerfu #\()
                          canlu-1
                          javni-11
                          (morji-nunjavni-lerfu #\))
                          canlu-1)
                    porjahe:
                    #t))))))
    (define namcu-76
      (nunjavni-morji
        (morji-nunjavni-je
          (list (morji-nunjavni-char-set-+ char-set:digit) canlu-1))))
    (define canlu-79
      (nunjavni-morji
        (morji-nunjavni-*
          (morji-nunjavni-jonai
            (list (morji-nunjavni-porjahe canlubu-77)
                  (morji-nunjavni-porjahe totoi-78))
            porsumti:
            #t
            porjahe:
            #t)
          porsumti:
          #t
          nastura:
          #t)))
    (define canlubu-81
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-char-set char-set:whitespace) CRLF-80))))
    (define totoi-82
      (nunjavni-morji
        (morji-nunjavni-je
          (list (morji-nunjavni-lerfu #\; porjahe: #t)
                (morji-nunjavni-*
                  (morji-nunjavni-je
                    (list (morji-nunjavni-! CRLF-80 porjahe: #t)
                          (morji-nunjavni-. porjahe: #t))
                    porsumti:
                    #t
                    porjahe:
                    #t)
                  porsumti:
                  #t
                  porjahe:
                  #t)
                (morji-nunjavni-jonai
                  (list (morji-nunjavni-porjahe CRLF-80)
                        (morji-nunjavni-& FAhO-4 porjahe: #t))
                  porsumti:
                  #t
                  porjahe:
                  #t))
          porsumti:
          #t)))
    (define CR-84 (morji-nunjavni-lerfu #\return))
    (define LF-86 (morji-nunjavni-lerfu #\newline))
    (define CRLF-87
      (nunjavni-morji
        (morji-nunjavni-jonai
          (list (morji-nunjavni-je (list CR-83 LF-85)) CR-83 LF-85))))
    (define FAhO-88 (morji-nunjavni-fanmo))
    (tolmohi-nunjavni)
    cfari-5))