Haskell: break a list into sublists using a split element

words.hs

--
-- Break a list into sublists using a split element 
-- Author: Paulo Lieuthier
-- 

wordss :: Eq a => a -> [a] -> [[a]] -> [a] -> [[a]]
wordss _ [] acc word = acc ++ [word]
wordss sp (x:xs) acc word
    | x == sp = wordss sp xs (acc ++ [word]) []
    | otherwise = wordss sp xs acc (word ++ [x])

words' sp list = wordss sp list [] []

main :: IO ()
main = do
    putStrLn $ show $ words' 1 [2, 3, 1, 4, 4, 1, 5, 4, 1, 4]