divie n xs = let (as,bs) = splitAt n xs
             in as : divie n bs
divie n xs = let (as,bs) = splitAt n xs
             in as : divie n bs
divie n xs = let (as,bs) = splitAt n xs
             in as : divie n bs