@@ -809,7 +809,8 @@ assumedAbbrev = try $ do
809809-- by a capital letter (such as a name).
810810knownAbbrev = try $ do
811811 result <- oneOfStrings [ "Mr", "Mrs", "Ms", "Capt", "Dr", "Prof", "Gen",
812− "Gov", "e.g", "i.e", "Sgt", "St", "vol", "vs" ]
812+ "Gov", "e.g", "i.e", "Sgt", "St", "vol", "vs",
813+ "Sen", "Rep", "Pres", "Hon", "Rev" ]
813814 string ". "
814815 return result
815816