UNB/ CS/ David Bremner/ teaching/ cs4613/ lectures/ lecture3/ snippet-001.rkt 
#lang plait
ae := NUMBER  
      | ae1 + ae2 
      | ae1 - ae2
ae1: ae
ae2: ae