takeEach n xs = first:takeEach n rest 
    where (first,rest) = splitAt n xs


-----------------------------------------------
-- Read Instance, using ReadP parser (base-4.2)
--  eats the format we output above (Show), but
--  can also consume other formats of the array 
--  (not implemented yet).
-----------------------------------------------
takeEach n xs = first:takeEach n rest 
    where (first,rest) = splitAt n xs


-----------------------------------------------
-- Read Instance, using ReadP parser (base-4.2)
--  eats the format we output above (Show), but
--  can also consume other formats of the array 
--  (not implemented yet).
-----------------------------------------------
takeEach n xs = first:takeEach n rest 
    where (first,rest) = splitAt n xs


-----------------------------------------------
-- Read Instance, using ReadP parser (base-4.2)
--  eats the format we output above (Show), but
--  can also consume other formats of the array 
--  (not implemented yet).
-----------------------------------------------