Copy of cmFORTH