prepare :: String -> Phrase
prepare = reduce . words . map toLower . filter (not . flip elem ".,:;*!#%&|")

rulesCompile :: [(String, [String])] -> BotBrain
{- TO BE WRITTEN
type Phrase = [String]
type PhrasePair = (Phrase, Phrase)
type BotBrain = [(Phrase, [Phrase])]
-}
-- För varje tuple vill vi köra prepare på första elementet och för andra
-- elementet vill vi för varje element i listan köra prepare.
rulesCompile stringBB = map (\x -> (prepare (fst x), map (\y -> prepare y) x) stringBB