class CC feature g (i: INTEGER): INTEGER do Result := i end end