: cuckoo-set-at ( value key cuckoo -- ) 2dup cuckoo-lookup { { [ pick over key>> = ] [ 2nip store-value ] } { [ dup key>> ((collision)) = ] [ nip value>> set-at ] } { [ pick hashcode over key>> = ] [ nip ((collision)) V{ } clone [ store ] keep set-at ] } [ drop cuckoo-insert ] } cond ;