import Control.Lens baseLens --> nextIndex = baseLens . ix nextIndex assocIn structure keyLens newValue = set keyLens newValue structure
setTo256 structure = assocIn structure (ix 0 --> 0 --> 0) 256 -- setTo256 [[[1]], [[2]]] returns [[[256]], [[2]]]