whileDef :: T.LanguageDef st
whileDef = (emptyDef
              {T.reservedOpNames = ["*", "+", "-", "!", "&", "=", "<=", ":=", 
                                    ";"],
               T.reservedNames = ["true", "false", "skip", "if", "then", 
                                  "else", "while", "do", "try", "catch"],
               T.identStart = letter,
               T.commentLine = "#"
              })
whileDef :: T.LanguageDef st
whileDef = (emptyDef
              {T.reservedOpNames = ["*", "+", "-", "!", "&", "=", "<=", ":=", 
                                    ";"],
               T.reservedNames = ["true", "false", "skip", "if", "then", 
                                  "else", "while", "do", "try", "catch"],
               T.identStart = letter,
               T.commentLine = "#"
              })
whileDef = (emptyDef
              {T.reservedOpNames = ["*", "+", "-", "!", "&", "=", "<=", ":=", 
                                    ";"],
               T.reservedNames = ["true", "false", "skip", "if", "then", 
                                  "else", "while", "do", "try", "catch"],
               T.identStart = letter,
               T.commentLine = "#"
              })