inject: value into: binaryBlock | result | result <- value. self do: [:element | result <- binaryBlock value: result value: element ]. ^ result