-- список из первых элементов каждого списка списков
zipKa ::[[a]] -> [a]
zipKa [[]] = []
zipKa [] = []
zipKa x = (head (head x)):(zipKa (tail x))

-- остальные элементы каждого списка списков
retTail :: [[a]] -> [[a]]
retTail [] = []
retTail [[]] = []
retTail (x:xss) | length x == 1 = []
                | otherwise = [tail x] ++ (retTail xss)

zipN :: [[a]] -> [[a]]
zipN [] = []
zipN [[]] = []
zipN x =  [(zipKa x)] ++ (zipN (retTail x))