Cluster grammar

gistfile1.scm

(program
  ((abstraction F118 (V11) (cluster V11 2))
    (abstraction F117 () (cluster c137 3))
    (abstraction F116 (V10) (node V10 (F112) (F112)))
    (abstraction F115 (V6 V7 V8 V9)
      (node V9 V8 (F112) V7 (F112) V6 (F112) (F112) (F112)))
    (abstraction F114 () (node (F112)))
    (abstraction F113 (V5) (node V5 (F112)))
    (abstraction F112 ()
      ((lambda (V4) (cluster V4 1))
        (choose c117 c42 c94 c135 c16 c156 c159 c17 c25 c59
          c82 root c155 c124 c147 c137 c188 c190 c111 c116
          c130 c153 c163 c170 c174 c179 c181 c65 c7 c77 c88
          c110 c13 c165 c138 c140 c63 c132 c12 c141 c84 c86
          c57 c173 c120 c2 c50 c14 c144 c78 c1 c104 c68 c76
          c66))))
  (lambda ()
    (choose
      (F113
        (F113
          (node (F116 (F112)) (F114) (F114) (F112) (F112)
            (F112) (F112) (F118 c182) (F112) (F112)
            (F118 c84))))
      (F113
        (F113
          (node (node (F118 c110)) (F113 (F112)) (F114)
            (F114) (F116 (F113 (F116 (F112)))) (F118 c111)
            (F112) (F112) (F112) (F118 c141) (F112) (F112)
            (F112) (F112) (F112) (F118 c167) (F112) (F112)
            (F112) (F112) (F112) (F112) (F112) (F112))))
      (F113
        (node
          (node (F114) (F113 (F114)) (F112) (F112) (F112)
            (F112) (F112) (cluster c163 5) (F112)
            (F118 c167) (F112) (F118 c170) (F112) (F112)
            (cluster c39 3) (F112))
          (F112) (F112) (F112) (F112)))
      (F113
        (F115 (F118 c35) (F112)
          (node (F114) (F114) (F112) (F112) (F112) (F112)
            (F112) (F112) (F112) (F112) (F112) (F118 c88)
            (F118 c96))
          (F114)))
      (F113
        (node (F115 (F112) (F117) (F114) (node (F117)))
          (F112) (F112) (F112) (F112) (F112) (F112) (F112)))
      (F113
        (node
          (F115 (cluster c165 4) (F118 c111) (F112)
            (F113 (F112)))
          (F112) (F112) (F112) (F112) (F112))))))