added a simple direct-threaded forth interpreter