with Alakzatok, text_io; use Alakzatok, text_io;
package Korok is
	type Kor is new Alakzat with private;
	function Beolvas( f: in FILE_TYPE := CURRENT_INPUT ) return Kor;
	procedure Kiir( k: in Kor; f: in FILE_TYPE := CURRENT_OUTPUT );
private
	type Kor is new Alakzat with record
		sugar: FLOAT;
	end record;
end Korok;