trying to write INTERPRET in forth