forth compiler work