SUBDESIGN timer
(
	clk		: INPUT ;
	suocun	: OUTPUT;
)
VARIABLE
	f[3..0] : DFF;
	suocun	: DFF;
BEGIN
	f[].clk=clk;
	suocun.clk=clk;
	f[].d=(!suocun)&(f[]+1);
	suocun.d=f[3] & !f[2] & !f[1] & !f[0];
END;