# Pastebin GvfMuuE6
;; red doesn't have `use`
;  @dockimbel posted this one. also @rgchris has `use` on his web somewhere
use: function [words [block!] body [block!]][
	forall words [words/1: to-set-word words/1]
	context head insert body append words none
]