#####
##### Ferenc Szollosi
#####

> W_19_9 := Matrix(19,19,[
> [0,-1,0,1,1,1,1,0,-1,0,0,0,-1,0,0,1,0,1,0],
> [0,0,0,-1,1,-1,-1,0,0,0,0,1,0,0,1,1,0,1,1],
> [1,0,1,0,1,1,-1,1,0,0,0,0,0,1,0,0,-1,-1,0],
> [1,0,-1,0,-1,0,0,0,0,-1,1,-1,0,1,1,1,0,0,0],
> [-1,-1,0,-1,0,1,0,0,1,-1,1,0,0,-1,0,0,-1,0,0],
> [0,0,0,0,0,-1,1,1,1,0,0,0,-1,0,-1,1,0,-1,1],
> [-1,0,0,1,0,-1,0,1,0,-1,-1,0,0,0,1,0,-1,0,-1],
> [0,-1,1,-1,0,0,1,0,0,-1,-1,0,1,1,0,0,1,0,0],
> [0,-1,0,0,-1,0,0,0,-1,0,0,1,-1,0,1,-1,0,-1,1],
> [-1,1,0,0,0,0,0,-1,-1,-1,0,0,0,1,-1,0,-1,0,1],
> [1,0,-1,0,0,0,0,1,-1,-1,0,1,1,-1,-1,0,0,0,0],
> [1,0,-1,0,1,0,0,-1,1,-1,-1,0,-1,0,0,-1,0,0,0],
> [0,-1,0,1,1,-1,0,0,0,0,1,-1,1,0,0,-1,0,0,1],
> [0,-1,0,-1,0,-1,-1,0,-1,0,0,-1,-1,0,-1,0,0,0,-1],
> [0,0,1,1,0,0,-1,-1,0,-1,0,0,0,-1,0,1,1,-1,0],
> [0,1,0,-1,1,0,1,0,-1,0,0,-1,0,-1,1,0,0,-1,0],
> [1,0,1,0,0,-1,1,-1,0,0,1,1,0,0,0,0,-1,0,-1],
> [1,0,1,0,-1,0,0,0,0,0,-1,-1,0,-1,0,0,-1,1,1],
> [0,1,1,0,0,0,0,1,0,-1,1,0,-1,0,0,-1,1,1,0]
> ]):


> writeto("W12.10.txt");