Main = String. BusRoute = Ident "buses" List(Bus) "towns" List(Town). Bus = Ident List(Person). Town = Ident "busStops" List(BusStop). Person = Ident. BusStop = Ident List(Person). List(S) ~ "(" {S} ")".