shiftRegister[taps_List] :=
	Function[cells,
		Prepend[ Drop[cells, -1],
			 Mod[ Plus @@ cells[[taps]], 2]
		]
	]
