import Data.List
import Data.Tuple
import Control.Arrow
import Control.Monad
main :: IO ()
main = zipWithM_ ((print .) . f) [3, 4, 6, 7] $ replicate 4 [1..10]
f :: Int -> [a] -> [[a]]
f = ((takeWhile (not . null) . uncurry (flip (++)) . first (: [])) .) . ((flip (mapAccumL ((swap .) . flip splitAt)) =<<)) . ((uncurry (++) . ((flip (replicate . fst) =<< (uncurry (+) . first signum)) &&& repeat . snd)).) . (swap .) . ((. length) . flip divMod)
 

aW1wb3J0IERhdGEuTGlzdAppbXBvcnQgRGF0YS5UdXBsZQppbXBvcnQgQ29udHJvbC5BcnJvdwppbXBvcnQgQ29udHJvbC5Nb25hZAptYWluIDo6IElPICgpCm1haW4gPSB6aXBXaXRoTV8gKChwcmludCAuKSAuIGYpIFszLCA0LCA2LCA3XSAkIHJlcGxpY2F0ZSA0IFsxLi4xMF0KZiA6OiBJbnQgLT4gW2FdIC0+IFtbYV1dCmYgPSAoKHRha2VXaGlsZSAobm90IC4gbnVsbCkgLiB1bmN1cnJ5IChmbGlwICgrKykpIC4gZmlyc3QgKDogW10pKSAuKSAuICgoZmxpcCAobWFwQWNjdW1MICgoc3dhcCAuKSAuIGZsaXAgc3BsaXRBdCkpID08PCkpIC4gKCh1bmN1cnJ5ICgrKykgLiAoKGZsaXAgKHJlcGxpY2F0ZSAuIGZzdCkgPTw8ICh1bmN1cnJ5ICgrKSAuIGZpcnN0IHNpZ251bSkpICYmJiByZXBlYXQgLiBzbmQpKS4pIC4gKHN3YXAgLikgLiAoKC4gbGVuZ3RoKSAuIGZsaXAgZGl2TW9kKQo=