with text_io; use text_io;
package Alakzatok is
	type Alakzat is abstract tagged private;
	function Beolvas( f: in FILE_TYPE := CURRENT_INPUT ) return Alakzat
		is abstract;
	procedure Kiir( a: in Alakzat; f: in FILE_TYPE := CURRENT_OUTPUT )
		is abstract;
private
	type Alakzat is abstract tagged null record;
end Alakzatok;