class MY_CELL [G] create put feature -- Initialization put (v: G) is do item := v end item: G end