expand :: FileContents -> FileContents -> FileContents
expand [] []
  = []
expand originalList []
  = originalList
expand originalList defFile
  =
  where
    (septr, pureWords) = splitText separators originalList
    (_, n)             = splitText "\n" defFile
    g                  = getKeywordDefs n
    wordList           = combine septr pureWords