getKeywordDefs :: [String] -> KeywordDefs
getKeywordDefs [] = []
getKeywordDefs (x:xs)
  = splitItems x : getKeywordDefs xs
		where
			splitItems :: String -> (String, String)
			splitItems string
				| b == []   = (b, a)
				| otherwise = (a, tail b)
					where
						(a, b) = let f x = (x `elem` separators) in break f string