main module TESTCARD

	declare
	    C : static 16 bit cardinal
	    D : static 16 bit cardinal
	    I : static integer
	enddeclare

	if C > D do
	    I := 1
	endif
endmodule