: printfour

	dup		( save the number on top of the stack )
	4 =		( compare it to four )
	if
	  " forth "	( output a string for it )
	  drop		( and delete the saved value )
        else
	  .
	endif
;

: demo3 10 0 do i printfour loop cr ;

demo3
