Haskell, 153 144 bytes

(thanks, Sriotchilism O'Zaic)

f
 [
 ]=
   [
   ];
    f(
     x:
      l)
       =(
        :)
         x l
-- :   z $
-- [   i f
-- ]   p
--     W
--     i
--     t
--     h

Try it online!

Try it transposed!

Haskell, 153 144 bytes

(thanks, Sriotchilism O'Zaic)

f
 [
 ]=
   [
   ];
    f(
     x:
      l)
       =(
        :)
         x l
-- :   z $
-- f   i f
-- [   p
-- ]   W
--     i
--     t
--     h

Try it online!

Try it transposed!

Haskell, 153 bytes

f
 [
 ]=
   [
   ];
    f(
     x:
      l)
       =(
        :)
         x$
          f l
--r    z
--e    i
--p    p
--e    W
--a    i
--t    t
--     h

Try it online!

Try it transposed!

Haskell, 153 144 bytes

(thanks, Sriotchilism O'Zaic)

f
 [
 ]=
   [
   ];
    f(
     x:
      l)
       =(
        :)
         x l
-- :   z $
-- [   i f
-- ]   p
--     W
--     i
--     t
--     h

Try it online!

Try it transposed!

Haskell, 164 bytes

f
 [
 ]=
   [
   ];
    f(
     x:
      l)
       =(
        :)
         x$
          f
           l
--r    z
--e    i
--p    p
--e    W
--a    i
--t    t
--     h

Try it online!

Try it transposed!

Haskell, 153 bytes

f
 [
 ]=
   [
   ];
    f(
     x:
      l)
       =(
        :)
         x$
          f l
--r    z
--e    i
--p    p
--e    W
--a    i
--t    t
--     h

Try it online!

Try it transposed!