file = "q120"
NUMCOLUMN = 30
NUMCHOICES = 4

weights = ReadList[StringJoin[file,".wlog"],
	Table[Table[Number, {NUMCHOICES}], {NUMCOLUMN}]]
units = Transpose[weights]

