To answer http://stackoverflow.com/questions/16383396/how-to-replace-more-than-one-element-at-the-same-time-in-a-string-haskell/16383647?noredirect=1#comment23491885_16383647

divideIntoParts.hs

divideIntoParts :: [String] -> String -> [String]
divideIntoParts = divideIntoParts' [] ""
  where
    divideIntoParts' :: [String] -> String -> [String] -> String -> [String]
    divideIntoParts' accList accStr _ "" = reverse ((reverse accStr) : accList)
    divideIntoParts' accList accStr patterns str@(l:ls) = let (matched, rest) = matchPatterns patterns str
                                                            in
                                                           if null matched
                                                             then divideIntoParts' accList (l:accStr) patterns ls
                                                             else divideIntoParts' (matched : (reverse accStr) : accList) "" patterns rest

    matchPatterns :: [String] -> String -> (String, String)
    matchPatterns _ "" = ("", "")
    matchPatterns patterns str = splitAt (matchedPatternLength patterns str) str

    matchedPatternLength :: [String] -> String -> Int
    matchedPatternLength patterns str = foldl (\ len pattern -> let (begin, end) = splitAt (length pattern) str in if and [len == 0, begin == pattern] then length pattern else len) 0 patterns