S=Table[Symbol["w" <> ToString[i]], {i, 1, 73}];
    S = List /@ S;
    S // Short
>    {{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, << 61 >>, {w68}, {w69}, {w70}, {w71}, {w72}, {w73}}

Alternatively,

    S=Table[{Symbol["w" <> ToString[i]]}, {i, 1, 73}];
    S // Short
>    {{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, << 61 >>, {w68}, {w69}, {w70}, {w71}, {w72}, {w73}}