diff --git a/mes/module/mes/psyntax.pp b/mes/module/mes/psyntax.pp
index ee73da86..3e2df223 100644
--- a/mes/module/mes/psyntax.pp
+++ b/mes/module/mes/psyntax.pp
@@ -6666,613 +6666,6 @@
           '(any () any . each-any))))
      syntmp-x-1462)))
 
-(install-global-transformer
-  'syntax-rules
-  (lambda (syntmp-xx-1503)
-    (letrec ((syntmp-expand-syntax-rules-1504
-               (lambda (syntmp-dots-1505
-                        syntmp-keys-1506
-                        syntmp-docstrings-1507
-                        syntmp-clauses-1508)
-                 ((lambda (syntmp-tmp-1509)
-                    ((lambda (syntmp-tmp-1510)
-                       (if syntmp-tmp-1510
-                         (apply (lambda (syntmp-k-1511
-                                         syntmp-docstring-1512
-                                         syntmp-keyword-1513
-                                         syntmp-pattern-1514
-                                         syntmp-template-1515)
-                                  ((lambda (syntmp-tmp-1516)
-                                     ((lambda (syntmp-form-1517)
-                                        (if syntmp-dots-1505
-                                          ((lambda (syntmp-tmp-1518)
-                                             ((lambda (syntmp-dots-1519)
-                                                (list '#(syntax-object
-                                                         with-ellipsis
-                                                         ((top)
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(dots)
-                                                            #((top))
-                                                            #("i"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(form)
-                                                            #((top))
-                                                            #("i"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(k
-                                                              docstring
-                                                              keyword
-                                                              pattern
-                                                              template)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i"
-                                                              "i"
-                                                              "i"
-                                                              "i"
-                                                              "i"))
-                                                          #(ribcage () () ())
-                                                          #(ribcage () () ())
-                                                          #(ribcage
-                                                            #(dots
-                                                              keys
-                                                              docstrings
-                                                              clauses)
-                                                            #((top)
-                                                              (top)
-                                                              (top)
-                                                              (top))
-                                                            #("i" "i" "i" "i"))
-                                                          #(ribcage
-                                                            (expand-syntax-rules)
-                                                            ((top))
-                                                            ("i"))
-                                                          #(ribcage
-                                                            #(xx)
-                                                            #((top))
-                                                            #("i"))))
-                                                      syntmp-dots-1519
-                                                      syntmp-form-1517))
-                                              syntmp-tmp-1518))
-                                           syntmp-dots-1505)
-                                          syntmp-form-1517))
-                                      syntmp-tmp-1516))
-                                   (cons '#(syntax-object
-                                            lambda
-                                            ((top)
-                                             #(ribcage () () ())
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(k
-                                                 docstring
-                                                 keyword
-                                                 pattern
-                                                 template)
-                                               #((top) (top) (top) (top) (top))
-                                               #("i" "i" "i" "i" "i"))
-                                             #(ribcage () () ())
-                                             #(ribcage () () ())
-                                             #(ribcage
-                                               #(dots keys docstrings clauses)
-                                               #((top) (top) (top) (top))
-                                               #("i" "i" "i" "i"))
-                                             #(ribcage
-                                               (expand-syntax-rules)
-                                               ((top))
-                                               ("i"))
-                                             #(ribcage #(xx) #((top)) #("i"))))
-                                         (cons '(#(syntax-object
-                                                   x
-                                                   ((top)
-                                                    #(ribcage () () ())
-                                                    #(ribcage () () ())
-                                                    #(ribcage
-                                                      #(k
-                                                        docstring
-                                                        keyword
-                                                        pattern
-                                                        template)
-                                                      #((top)
-                                                        (top)
-                                                        (top)
-                                                        (top)
-                                                        (top))
-                                                      #("i" "i" "i" "i" "i"))
-                                                    #(ribcage () () ())
-                                                    #(ribcage () () ())
-                                                    #(ribcage
-                                                      #(dots
-                                                        keys
-                                                        docstrings
-                                                        clauses)
-                                                      #((top)
-                                                        (top)
-                                                        (top)
-                                                        (top))
-                                                      #("i" "i" "i" "i"))
-                                                    #(ribcage
-                                                      (expand-syntax-rules)
-                                                      ((top))
-                                                      ("i"))
-                                                    #(ribcage
-                                                      #(xx)
-                                                      #((top))
-                                                      #("i")))))
-                                               (append
-                                                 syntmp-docstring-1512
-                                                 (list (cons '#(syntax-object
-                                                                syntax-case
-                                                                ((top)
-                                                                 #(ribcage
-                                                                   ()
-                                                                   ()
-                                                                   ())
-                                                                 #(ribcage
-                                                                   ()
-                                                                   ()
-                                                                   ())
-                                                                 #(ribcage
-                                                                   #(k
-                                                                     docstring
-                                                                     keyword
-                                                                     pattern
-                                                                     template)
-                                                                   #((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                   #("i"
-                                                                     "i"
-                                                                     "i"
-                                                                     "i"
-                                                                     "i"))
-                                                                 #(ribcage
-                                                                   ()
-                                                                   ()
-                                                                   ())
-                                                                 #(ribcage
-                                                                   ()
-                                                                   ()
-                                                                   ())
-                                                                 #(ribcage
-                                                                   #(dots
-                                                                     keys
-                                                                     docstrings
-                                                                     clauses)
-                                                                   #((top)
-                                                                     (top)
-                                                                     (top)
-                                                                     (top))
-                                                                   #("i"
-                                                                     "i"
-                                                                     "i"
-                                                                     "i"))
-                                                                 #(ribcage
-                                                                   (expand-syntax-rules)
-                                                                   ((top))
-                                                                   ("i"))
-                                                                 #(ribcage
-                                                                   #(xx)
-                                                                   #((top))
-                                                                   #("i"))))
-                                                             (cons '#(syntax-object
-                                                                      x
-                                                                      ((top)
-                                                                       #(ribcage
-                                                                         ()
-                                                                         ()
-                                                                         ())
-                                                                       #(ribcage
-                                                                         ()
-                                                                         ()
-                                                                         ())
-                                                                       #(ribcage
-                                                                         #(k
-                                                                           docstring
-                                                                           keyword
-                                                                           pattern
-                                                                           template)
-                                                                         #((top)
-                                                                           (top)
-                                                                           (top)
-                                                                           (top)
-                                                                           (top))
-                                                                         #("i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"))
-                                                                       #(ribcage
-                                                                         ()
-                                                                         ()
-                                                                         ())
-                                                                       #(ribcage
-                                                                         ()
-                                                                         ()
-                                                                         ())
-                                                                       #(ribcage
-                                                                         #(dots
-                                                                           keys
-                                                                           docstrings
-                                                                           clauses)
-                                                                         #((top)
-                                                                           (top)
-                                                                           (top)
-                                                                           (top))
-                                                                         #("i"
-                                                                           "i"
-                                                                           "i"
-                                                                           "i"))
-                                                                       #(ribcage
-                                                                         (expand-syntax-rules)
-                                                                         ((top))
-                                                                         ("i"))
-                                                                       #(ribcage
-                                                                         #(xx)
-                                                                         #((top))
-                                                                         #("i"))))
-                                                                   (cons syntmp-k-1511
-                                                                         (map (lambda (syntmp-tmp-1522
-                                                                                       syntmp-tmp-1521)
-                                                                                (list (cons '#(syntax-object
-                                                                                               dummy
-                                                                                               ((top)
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  #(k
-                                                                                                    docstring
-                                                                                                    keyword
-                                                                                                    pattern
-                                                                                                    template)
-                                                                                                  #((top)
-                                                                                                    (top)
-                                                                                                    (top)
-                                                                                                    (top)
-                                                                                                    (top))
-                                                                                                  #("i"
-                                                                                                    "i"
-                                                                                                    "i"
-                                                                                                    "i"
-                                                                                                    "i"))
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  #(dots
-                                                                                                    keys
-                                                                                                    docstrings
-                                                                                                    clauses)
-                                                                                                  #((top)
-                                                                                                    (top)
-                                                                                                    (top)
-                                                                                                    (top))
-                                                                                                  #("i"
-                                                                                                    "i"
-                                                                                                    "i"
-                                                                                                    "i"))
-                                                                                                #(ribcage
-                                                                                                  (expand-syntax-rules)
-                                                                                                  ((top))
-                                                                                                  ("i"))
-                                                                                                #(ribcage
-                                                                                                  #(xx)
-                                                                                                  #((top))
-                                                                                                  #("i"))))
-                                                                                            syntmp-tmp-1521)
-                                                                                      (list '#(syntax-object
-                                                                                               syntax
-                                                                                               ((top)
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  #(k
-                                                                                                    docstring
-                                                                                                    keyword
-                                                                                                    pattern
-                                                                                                    template)
-                                                                                                  #((top)
-                                                                                                    (top)
-                                                                                                    (top)
-                                                                                                    (top)
-                                                                                                    (top))
-                                                                                                  #("i"
-                                                                                                    "i"
-                                                                                                    "i"
-                                                                                                    "i"
-                                                                                                    "i"))
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  ()
-                                                                                                  ()
-                                                                                                  ())
-                                                                                                #(ribcage
-                                                                                                  #(dots
-                                                                                                    keys
-                                                                                                    docstrings
-                                                                                                    clauses)
-                                                                                                  #((top)
-                                                                                                    (top)
-                                                                                                    (top)
-                                                                                                    (top))
-                                                                                                  #("i"
-                                                                                                    "i"
-                                                                                                    "i"
-                                                                                                    "i"))
-                                                                                                #(ribcage
-                                                                                                  (expand-syntax-rules)
-                                                                                                  ((top))
-                                                                                                  ("i"))
-                                                                                                #(ribcage
-                                                                                                  #(xx)
-                                                                                                  #((top))
-                                                                                                  #("i"))))
-                                                                                            syntmp-tmp-1522)))
-                                                                              syntmp-template-1515
-                                                                              syntmp-pattern-1514))))))))))
-                                syntmp-tmp-1510)
-                         (syntax-error syntmp-tmp-1509)))
-                     (syntax-dispatch
-                       syntmp-tmp-1509
-                       '(each-any each-any #(each ((any . any) any))))))
-                  (list syntmp-keys-1506
-                        syntmp-docstrings-1507
-                        syntmp-clauses-1508)))))
-      ((lambda (syntmp-tmp-1524)
-         ((lambda (syntmp-tmp-1525)
-            (if syntmp-tmp-1525
-              (apply (lambda (syntmp-_-1526
-                              syntmp-k-1527
-                              syntmp-keyword-1528
-                              syntmp-pattern-1529
-                              syntmp-template-1530)
-                       (syntmp-expand-syntax-rules-1504
-                         #f
-                         syntmp-k-1527
-                         '()
-                         (map (lambda (syntmp-tmp-1534
-                                       syntmp-tmp-1533
-                                       syntmp-tmp-1532)
-                                (list (cons syntmp-tmp-1532 syntmp-tmp-1533)
-                                      syntmp-tmp-1534))
-                              syntmp-template-1530
-                              syntmp-pattern-1529
-                              syntmp-keyword-1528)))
-                     syntmp-tmp-1525)
-              ((lambda (syntmp-tmp-1535)
-                 (if (if syntmp-tmp-1535
-                       (apply (lambda (syntmp-_-1536
-                                       syntmp-k-1537
-                                       syntmp-docstring-1538
-                                       syntmp-keyword-1539
-                                       syntmp-pattern-1540
-                                       syntmp-template-1541)
-                                (string?
-                                  (syntax-object->datum
-                                    syntmp-docstring-1538)))
-                              syntmp-tmp-1535)
-                       #f)
-                   (apply (lambda (syntmp-_-1542
-                                   syntmp-k-1543
-                                   syntmp-docstring-1544
-                                   syntmp-keyword-1545
-                                   syntmp-pattern-1546
-                                   syntmp-template-1547)
-                            (syntmp-expand-syntax-rules-1504
-                              #f
-                              syntmp-k-1543
-                              (list syntmp-docstring-1544)
-                              (map (lambda (syntmp-tmp-1551
-                                            syntmp-tmp-1550
-                                            syntmp-tmp-1549)
-                                     (list (cons syntmp-tmp-1549
-                                                 syntmp-tmp-1550)
-                                           syntmp-tmp-1551))
-                                   syntmp-template-1547
-                                   syntmp-pattern-1546
-                                   syntmp-keyword-1545)))
-                          syntmp-tmp-1535)
-                   ((lambda (syntmp-tmp-1552)
-                      (if (if syntmp-tmp-1552
-                            (apply (lambda (syntmp-_-1553
-                                            syntmp-dots-1554
-                                            syntmp-k-1555
-                                            syntmp-keyword-1556
-                                            syntmp-pattern-1557
-                                            syntmp-template-1558)
-                                     (identifier? syntmp-dots-1554))
-                                   syntmp-tmp-1552)
-                            #f)
-                        (apply (lambda (syntmp-_-1559
-                                        syntmp-dots-1560
-                                        syntmp-k-1561
-                                        syntmp-keyword-1562
-                                        syntmp-pattern-1563
-                                        syntmp-template-1564)
-                                 (syntmp-expand-syntax-rules-1504
-                                   syntmp-dots-1560
-                                   syntmp-k-1561
-                                   '()
-                                   (map (lambda (syntmp-tmp-1568
-                                                 syntmp-tmp-1567
-                                                 syntmp-tmp-1566)
-                                          (list (cons syntmp-tmp-1566
-                                                      syntmp-tmp-1567)
-                                                syntmp-tmp-1568))
-                                        syntmp-template-1564
-                                        syntmp-pattern-1563
-                                        syntmp-keyword-1562)))
-                               syntmp-tmp-1552)
-                        ((lambda (syntmp-tmp-1569)
-                           (if (if syntmp-tmp-1569
-                                 (apply (lambda (syntmp-_-1570
-                                                 syntmp-dots-1571
-                                                 syntmp-k-1572
-                                                 syntmp-docstring-1573
-                                                 syntmp-keyword-1574
-                                                 syntmp-pattern-1575
-                                                 syntmp-template-1576)
-                                          (and (identifier? syntmp-dots-1571)
-                                               (string?
-                                                 (syntax-object->datum
-                                                   syntmp-docstring-1573))))
-                                        syntmp-tmp-1569)
-                                 #f)
-                             (apply (lambda (syntmp-_-1577
-                                             syntmp-dots-1578
-                                             syntmp-k-1579
-                                             syntmp-docstring-1580
-                                             syntmp-keyword-1581
-                                             syntmp-pattern-1582
-                                             syntmp-template-1583)
-                                      (syntmp-expand-syntax-rules-1504
-                                        syntmp-dots-1578
-                                        syntmp-k-1579
-                                        (list syntmp-docstring-1580)
-                                        (map (lambda (syntmp-tmp-1587
-                                                      syntmp-tmp-1586
-                                                      syntmp-tmp-1585)
-                                               (list (cons syntmp-tmp-1585
-                                                           syntmp-tmp-1586)
-                                                     syntmp-tmp-1587))
-                                             syntmp-template-1583
-                                             syntmp-pattern-1582
-                                             syntmp-keyword-1581)))
-                                    syntmp-tmp-1569)
-                             (syntax-error syntmp-tmp-1524)))
-                         (syntax-dispatch
-                           syntmp-tmp-1524
-                           '(any any
-                                 each-any
-                                 any
-                                 .
-                                 #(each ((any . any) any)))))))
-                    (syntax-dispatch
-                      syntmp-tmp-1524
-                      '(any any each-any . #(each ((any . any) any)))))))
-               (syntax-dispatch
-                 syntmp-tmp-1524
-                 '(any each-any any . #(each ((any . any) any)))))))
-          (syntax-dispatch
-            syntmp-tmp-1524
-            '(any each-any . #(each ((any . any) any))))))
-       syntmp-xx-1503))))
-
-(install-global-transformer
-  'define-syntax-rule
-  (lambda (syntmp-x-1667)
-    ((lambda (syntmp-tmp-1668)
-       ((lambda (syntmp-tmp-1669)
-          (if syntmp-tmp-1669
-            (apply (lambda (syntmp-_-1670
-                            syntmp-name-1671
-                            syntmp-pattern-1672
-                            syntmp-template-1673)
-                     (list '#(syntax-object
-                              define-syntax
-                              ((top)
-                               #(ribcage
-                                 #(_ name pattern template)
-                                 #((top) (top) (top) (top))
-                                 #("i" "i" "i" "i"))
-                               #(ribcage () () ())
-                               #(ribcage #(x) #((top)) #("i"))))
-                           syntmp-name-1671
-                           (list '#(syntax-object
-                                    syntax-rules
-                                    ((top)
-                                     #(ribcage
-                                       #(_ name pattern template)
-                                       #((top) (top) (top) (top))
-                                       #("i" "i" "i" "i"))
-                                     #(ribcage () () ())
-                                     #(ribcage #(x) #((top)) #("i"))))
-                                 '()
-                                 (list (cons syntmp-_-1670 syntmp-pattern-1672)
-                                       syntmp-template-1673))))
-                   syntmp-tmp-1669)
-            ((lambda (syntmp-tmp-1674)
-               (if (if syntmp-tmp-1674
-                     (apply (lambda (syntmp-_-1675
-                                     syntmp-name-1676
-                                     syntmp-pattern-1677
-                                     syntmp-docstring-1678
-                                     syntmp-template-1679)
-                              (string?
-                                (syntax-object->datum syntmp-docstring-1678)))
-                            syntmp-tmp-1674)
-                     #f)
-                 (apply (lambda (syntmp-_-1680
-                                 syntmp-name-1681
-                                 syntmp-pattern-1682
-                                 syntmp-docstring-1683
-                                 syntmp-template-1684)
-                          (list '#(syntax-object
-                                   define-syntax
-                                   ((top)
-                                    #(ribcage
-                                      #(_ name pattern docstring template)
-                                      #((top) (top) (top) (top) (top))
-                                      #("i" "i" "i" "i" "i"))
-                                    #(ribcage () () ())
-                                    #(ribcage #(x) #((top)) #("i"))))
-                                syntmp-name-1681
-                                (list '#(syntax-object
-                                         syntax-rules
-                                         ((top)
-                                          #(ribcage
-                                            #(_
-                                              name
-                                              pattern
-                                              docstring
-                                              template)
-                                            #((top) (top) (top) (top) (top))
-                                            #("i" "i" "i" "i" "i"))
-                                          #(ribcage () () ())
-                                          #(ribcage #(x) #((top)) #("i"))))
-                                      '()
-                                      syntmp-docstring-1683
-                                      (list (cons syntmp-_-1680
-                                                  syntmp-pattern-1682)
-                                            syntmp-template-1684))))
-                        syntmp-tmp-1674)
-                 (syntax-error syntmp-tmp-1668)))
-             (syntax-dispatch
-               syntmp-tmp-1668
-               '(any (any . any) any any)))))
-        (syntax-dispatch
-          syntmp-tmp-1668
-          '(any (any . any) any))))
-     syntmp-x-1667)))
-
 (install-global-transformer
   'identifier-syntax
   (lambda (syntmp-x-2043)