:: copy-at ( from to assoc -- ) from assoc at [ to assoc set-at ] when* ; inline