Table S1   (Just TokWhile)     = [SymTerm TokWhile, SymNont B, SymNont S1]
pars
parseTable S1   (Just TokWhile)     = [SymTerm TokWhile, SymNont B, SymNont S1]
parseTable S1   (Just TokWhile)     = [SymTerm TokWhile, SymNont B, SymNont S1]