
structure PepaLrVals =
    PepaLrValsFun(structure Token = LrParser.Token);
structure PepaLex =
    PepaLexFun(structure Tokens = PepaLrVals.Tokens);
structure PepaParser =
     Join(structure LrParser = LrParser
          structure ParserData = PepaLrVals.ParserData
          structure Lex = PepaLex);

