finally a working basic INTERPRET in forth