see.forth work in progress