#####
##### Masaaki Harada, Akihiro Munemasa
#####

> W_27_16 := Matrix(27,27,[
> [-1, -1, 1, 1, 1, 1, -1, -1, -1, -1, -1, 1, 0, -1, 1, -1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0],
> [0, 0, 1, 0, 0, -1, 0, -1, 0, 0, 0, -1, -1, 0, 0, 1, 0, -1, 1, 1, -1, 1, -1, 1, -1, 1, -1],
> [1, -1, 1, 0, 0, 1, 1, 1, 0, 0, -1, -1, -1, -1, -1, 0, 0, 1, 0, -1, -1, 0, -1, 0, 1, 0, 0],
> [0, -1, 1, 0, 1, 1, 1, 0, -1, 1, 1, 0, 1, 1, 0, 1, -1, 1, 0, 1, 0, 0, 0, -1, -1, 0, 0],
> [-1, -1, 1, -1, -1, -1, 0, 1, 0, 0, -1, 0, 0, 1, 1, 0, 1, 0, 0, -1, 0, 1, 0, -1, -1, 0, 1],
> [1, 1, 1, 0, 0, -1, 0, 0, -1, 1, -1, 1, 0, -1, -1, 0, -1, -1, 0, 0, 0, 1, 1, -1, 0, -1, 0],
> [1, -1, 0, 1, -1, -1, -1, 0, 0, 1, 0, 1, 0, -1, 0, 1, 1, 1, 0, 1, 0, -1, 0, 0, 0, 1, 1],
> [0, -1, 0, 1, 1, -1, 1, -1, 1, 0, 0, 1, 0, 1, -1, 0, 1, 0, 0, 0, 1, 1, -1, 0, 1, -1, 0],
> [0, 0, 1, -1, 0, 0, -1, -1, -1, -1, 0, -1, 0, 0, -1, 1, 1, 1, -1, 0, 1, 0, 1, 1, 0, -1, 0],
> [0, 0, 0, 0, 1, -1, 0, 1, -1, -1, 1, 0, 1, -1, 0, 1, 1, -1, 0, -1, 0, -1, -1, -1, 0, 0, -1],
> [0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, -1, 0, -1, 0, 1, 0, 1, -1, 1, 0, 1, -1, -1, 1, 0],
> [-1, 0, 0, 0, -1, 0, 0, -1, -1, 1, 1, -1, 0, -1, 0, -1, 0, 0, -1, 0, 1, 1, -1, -1, 1, 1, 0],
> [0, 0, 1, -1, -1, 0, 1, -1, 1, 0, 0, 1, 1, -1, 0, 0, -1, 0, 0, -1, 1, -1, -1, 1, -1, 0, 0],
> [-1, -1, 0, 0, -1, 1, 0, 1, 0, 0, 0, 1, 1, 0, -1, 1, 0, -1, 0, 0, 0, 1, 1, 1, 1, 1, -1],
> [-1, 0, 0, -1, -1, 0, 1, 0, -1, 0, 1, 1, -1, 0, -1, -1, 1, 0, 1, 1, -1, -1, 0, 0, 0, -1, 0],
> [-1, 0, 0, 1, 0, -1, 1, 1, 0, 1, 0, -1, 0, -1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, -1, -1],
> [-1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, -1, 0, 1, 1, 0, 0, -1, -1, -1, 0, 0, 1, 1, 0, 1],
> [0, -1, 1, -1, 1, 0, -1, 1, 1, 1, 0, 0, -1, 0, 0, -1, 0, -1, -1, 1, 1, -1, 0, 0, 0, 0, -1],
> [0, -1, 0, -1, 0, -1, -1, -1, 1, 0, 1, 0, 0, 0, 0, 0, -1, 1, 1, -1, -1, 0, 1, -1, 1, 0, -1],
> [0, 0, 0, -1, 1, 0, 1, -1, 0, 1, -1, -1, 1, 0, 0, 0, 1, -1, 1, 0, 0, -1, 1, 0, 1, 1, 1],
> [-1, 1, 0, -1, 1, 0, -1, 1, 1, 0, 0, 0, 1, -1, -1, 0, 0, 1, 1, 1, 0, 1, -1, 0, 0, 0, 1],
> [-1, -1, -1, 0, 1, -1, 1, 0, 0, -1, 0, 0, -1, -1, -1, 0, -1, 0, -1, 0, 0, 0, 1, 0, -1, 1, 1],
> [0, -1, 0, 1, 0, 0, -1, 0, 0, 1, 1, -1, 1, 0, -1, -1, 0, -1, 0, -1, -1, 0, 0, 1, -1, -1, 1],
> [-1, 1, 1, 1, 0, -1, 0, 0, 0, 0, -1, 0, 1, 1, -1, -1, 0, 1, -1, 0, -1, -1, 0, 0, 0, 1, -1],
> [-1, 0, 1, 1, -1, 0, 0, 0, 1, -1, 0, -1, 0, 0, 0, 1, -1, -1, 0, 1, 0, -1, 0, -1, 1, -1, 1],
> [1, 0, 1, 0, 0, -1, 0, 1, -1, -1, 1, 0, 0, 1, 0, -1, -1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1],
> [1, 0, 1, 0, 0, 0, 1, 0, 1, -1, 1, 0, 1, -1, 1, -1, 1, 0, -1, 1, -1, 1, 1, 0, 0, 0, 0]
> ]):

> writeto("W29.16.txt");