::builtin for
	parseword drop // TODO: error handling
	"" ";" parse
	gen(while)
	genopen()
	"" ";" parse
	genclose()
	genopen{}
	"" ")" parse()
	"" parseblock {}
	swap
	genclose{}
;