Paste: cond in action

: 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 ;