generic	type Element is (<>);	-- legyen 'VALUE es 'WIDTH
function GetDiscreet ( when_repeat: STRING := "" ) return Element;