module NLP.FullStop.Ignore where
titles :: [String]
titles =
[ "Adj."
, "Adm."
, "Adv."
, "Asst."
, "Bart."
, "Bldg."
, "Brig."
, "Bros."
, "Capt."
, "Cmdr."
, "Col."
, "Comdr."
, "Con."
, "Cpl."
, "DR."
, "Dr."
, "Ens."
, "Gen."
, "Gov."
, "Hon."
, "Hosp."
, "Insp."
, "Lt."
, "MM."
, "MR."
, "MRS."
, "MS."
, "Maj."
, "Messrs."
, "Mlle."
, "Mme."
, "Mr."
, "Mrs."
, "Ms."
, "Msgr."
, "Op."
, "Ord."
, "Pfc."
, "Ph."
, "Prof."
, "Pvt."
, "Rep."
, "Reps."
, "Rev."
, "Sen."
, "Sens."
, "Sfc."
, "Sgt."
, "Sr."
, "St."
, "Supt."
]
abbreviations :: [String]
abbreviations =
[ "cf."
, "eg."
, "ie."
, "i.e."
, "e.g."
, "v."
, "vs."
]
initials :: [String]
initials = map (: ".") ['A'..'Z']