FORTHy stuff working + SNAKE