FORTH optimizations