main module LOOPER

	use TEXTIO

	

	repeat
	    out_line (TTY, "Looper")
	until false
endmodule