(FILECREATED "13-Sep-84 13:53:57" {ERIS}<SPEECH>LEXICON>FOOT-GRAMMAR.;25 5518   

      changes to:  (RULES (FOOT ENGLISH CDA))

      previous date: "11-Sep-84 15:04:59" {ERIS}<SPEECH>LEXICON>FOOT-GRAMMAR.;23)


(PRETTYCOMPRINT FOOT-GRAMMARCOMS)

(RPAQQ FOOT-GRAMMARCOMS [(RULES (FOOT ENGLISH CDA EV ExF F Nas ONS PHRASE PreF S1 S2 START U Un))
	(P (SETQ ROOTCAT (QUOTE PHRASE))
	   (CHANGELANGUAGE? (QUOTE FOOT)
			    (QUOTE ENGLISH])

(READRULES)(

FOOT   ENGLISH
   CDA --> {C |
            D |
            J |
            S |
            T |
            b |
            d |
            f |
            g |
            G |
            k |
            l |
            m |
            n |
            p |
            r |
            s |
            t |
            v |
            w |
            y |
            z |
            ? |
            {Nas |
             r |
             l}
            vclC
            (s) |
            {Nas |
             r}
            vcC
            (t) |
            {Nas |
             r}
            vclC
            (t) |
            vcC
            vcC
            (z) |
            vclC
            vclC
            (s) |
            vcC
            vcC
            (d) |
            vclC
            vclC
            (t)}.

   EV --> {e |
           u |
           U |
           i |
           I |
           o |
           O |
           A |
           R |
           L |
           N |
           Y |
           W |
           x}.

   ExF --> PreF
           Amb
           {(Vw
             Cn*)
            Vw
            {PRM |
             SCD}
            (Cn*
             Vw)
            (Cn*
             Vw
             Cn*
             Vw)
            CDA |
            (Vw
             Cn*)
            Vw
            {PRM |
             SCD}
            Cn*
            EV |
            (Vw
             Cn*)
            Vw
            {PRM |
             SCD}
            Cn*
            Vw
            Cn*
            EV |
            (Vw
             Cn*)
            Vw
            {PRM |
             SCD}
            Cn*
            Vw
            Cn*
            Vw
            Cn*
            EV |
            VL
            (Cn*
             Vw)
            CDA |
            EV
            SCD |
            EV
            PRM}.

   F --> {ONS
          (Vw
           Cn*)
          Vw
          {PRM |
           SCD}
          (Cn*
           Vw)
          (Cn*
           Vw
           Cn*
           Vw)
          CDA |
          ONS
          (Vw
           Cn*)
          Vw
          {PRM |
           SCD}
          Cn*
          EV |
          ONS
          (Vw
           Cn*)
          Vw
          {PRM |
           SCD}
          Cn*
          Vw
          Cn*
          EV |
          ONS
          (Vw
           Cn*)
          Vw
          {PRM |
           SCD}
          Cn*
          Vw
          Cn*
          Vw
          Cn*
          EV |
          ONS
          VL
          (Cn*
           Vw)
          CDA |
          ONS
          EV
          SCD |
          ONS
          EV
          PRM}.

   Nas --> {n |
            m |
            G}.

   ONS --> {C |
            D |
            J |
            S |
            T |
            b |
            d |
            f |
            g |
            h |
            k |
            l |
            m |
            n |
            p |
            r |
            s |
            t |
            v |
            w |
            y |
            z |
            ? |
            s
            t |
            s
            t
            r |
            s
            p
            r |
            s
            k
            r |
            vclC
            r |
            vcC
            r |
            p
            l |
            k
            l |
            b
            l |
            g
            l |
            s
            p |
            s
            k}.

   PHRASE --> F*
              ExF*
              F*.

   PreF --> ONS
            Vw
            {PRM |
             SCD}.

   S1 --> V
          PRM.

   S2 --> V
          SCD.

   START --> (Vw*
              Cn*
              Vw*)
             PHRASE
             (Vw*
              Cn*
              Vw*).

   U --> {U
          {ONS |
           AMB} |
          o
          {ONS |
           Amb}}.

   Un --> V.

)
(SETQ ROOTCAT (QUOTE PHRASE))
(CHANGELANGUAGE? (QUOTE FOOT)
		 (QUOTE ENGLISH))
(PUTPROPS FOOT-GRAMMAR COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP