;;un contador hasta un punto final

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

( deffunction incremento(?i ?n)
	( while( < ?i ?n) do
		( ++ ?i )
		(printout t "Valor i en: " ?i "." crlf)
        )
)

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