main module TEST32A
use TEXTIO
%set debug_print_ccode = true
	for I := 1234567 to 1234568 do
	    out_Line (TTY, "--")
	endfor
endmodule