split cond xs = let (b,a) = break cond xs
                in  (b:split cond (drop 1 a))
split cond xs = let (b,a) = break cond xs
                in  (b:split cond (drop 1 a))
split cond xs = let (b,a) = break cond xs
                in  (b:split cond (drop 1 a))