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