divie' p n xs = let (as,bs) = splitAt n xs
                    l = length as
                in (as ++ replicate (n - l) p) : divie' p n bs
divie' p n xs = let (as,bs) = splitAt n xs
                    l = length as
                in (as ++ replicate (n - l) p) : divie' p n bs
divie' p n xs = let (as,bs) = splitAt n xs
                    l = length as
                in (as ++ replicate (n - l) p) : divie' p n bs