def varfunc
	1 tolist flatten
	len for
		get print nl
	endfor	
enddef


"Mary" "had" "a" "little" "lamb" 5 tolist varfunc