added FORGET ; reorder FORTH registers