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