uses console

sub proc
	printl " Inside loop"
end sub

macro rep (func, n)
   int i
	for i = 1 to n
		func()
	next
end macro

rep (proc, 5)
printl "Loop Ended"

printl cr "Enter ..."
waitkey