fromLists (xs:xss) = fromList n m $ concat $ xs : map (take m) xss where
    n = 1 + length xss
    m = length xs
fromLists (xs:xss) = fromList n m $ concat $ xs : map (take m) xss where
    n = 1 + length xss
    m = length xs
fromLists (xs:xss) = fromList n m $ concat $ xs : map (take m) xss where
    n = 1 + length xss
    m = length xs