AND #40 |

           ( not BOOL ) #41

    REL -> HREL E1 ) #42

   HREL -> ( < E #43

    AND -> HAND BOOL ) #44

   HAND -> ( and #45 |

           HAND BOOL #46

   COND -> HCOND ELSE ) #47

  HCOND -> ( cond #48 |

           HCOND CLAUS #49

  CLAUS -> HCLAUS E1 ) #50

HCLAUS -> ( BOOL #51

   ELSE -> ( else E1 ) #52

     E1 -> E #53

    STR -> $str #54

    SET -> HSET E1 ) #55

   HSET -> ( set! $id #56

    VAR -> HVAR E1 ) #57

   HVAR -> ( define $id #58

   PROC -> HPROC E1 ) #59 |

           HPROC DINT ) #60

   DINT -> $int #61 |

           $oct #62

  HPROC -> PCPAR ) #63 |

           HPROC SET #64 |

           HPROC DISP #65

  PCPAR -> ( define ( $id #66 |

           PCPAR $id #67

    DEF -> PRED #68 |

           VAR #69 |

           PROC #70

   DEFS -> DEF #71 |

           DEFS DEF #72

  CALCS -> CALC #73 |

           CALCS CALC #74

CALCS1 -> CALCS #75

   PROG -> CALCS1 #76 |

           DEFS #77 |

           DEFS CALCS1 #78