breakAll p s  = let (h,s') = break p s
                    in h : breakAll p (drop 1 s')
breakAll p s  = let (h,s') = break p s
                    in h : breakAll p (drop 1 s')
breakAll p s  = let (h,s') = break p s
                    in h : breakAll p (drop 1 s')