: sourceprint source type cr
['] interpret >data token@ >r
interpret_save is interpret
exit? if 777 throw then
r> is interpret ;

: fileprint ( adr len -- )
['] interpret >data token@ to interpret_save
['] sourceprint is interpret
['] included catch
interpret_save is interpret
dup 777 = if drop 0 then
throw ;

: fp ( "name" -- )
safe-parse-word fileprint ;