~~~
:prefix:^ &Dictionary [ @Dictionary fetch !Dictionary interpret ]  v:preserve ; immediate

:prior[ @Dictionary dup fetch !Dictionary ; immediate
:]prior !Dictionary ; immediate

:test #1 ;
:test prior[ test #2 ]prior ;
test
~~~