// class dictionary Input = "JPT-Input" JPT "JPTrace-Input" JPTrace "JPTraceCF-Input" JPTraceCF EOF. JPT = "jp" JPN ID List(ID) List(JPT) ID. List(S) ~ "(" {S} ")". ID = Ident. // OF to JPT JPTrace = "jp" JPN Objekt List(Objekt) List(JPTrace) Objekt. Objekt = ID. // CF to JPT JPTraceCF = "jp" JPN Klass List(Klass) List(JPTraceCF) Klass. Klass = ID. JPN = Ident.