;;un contador hasta un punto final

/*
	@utor:
	versión:
	descripcion:
*/

( deffunction incrementofor( ?n)
	( for( (bind ?i 0)  ( < ?i ?n)  (?i ++) ) 
		(printout t "Valor i en: " ?i "." crlf)
        )
)

(printout t "Valor i en : " (incrementofor 5 ) "." crlf )