package body KaH is

  procedure Sugarat_Beallit ( k: in out KorAlapuHasab'Class; r: in POSITIVE ) is
	begin
		k.sugar := r;
	end Sugarat_Beallit;

  function Alapterulet ( k: KorAlapuHasab ) return POSITIVE is
	begin
		return 12; --3*k.sugar**2;
	end Alapterulet;

end KaH;