#####
##### Robert Craigen 
##### W(6,4) is woven from H(2) using loom matrix
##### 1       1       0
##### 1       0       1
##### 0       1       1
#####

> W_6_4 := Matrix(6,6,[
> [1,        1,        1,        1,        0,        0],
> [1,        1,       -1,       -1,        0,        0],
> [1,       -1,        0,        0,        1,        1],
> [1,       -1,        0,        0,       -1,       -1],
> [0,        0,        1,       -1,        1,       -1],
> [0,        0,        1,       -1,       -1,        1]
> ]):

> writeto("W7.4.txt");