(set *db* (build-me-a-vector [] 1000)) (define db-> Key Details -> (let DB (value *db*) Hash (hash Key (limit DB)) Entry (<-vector DB Hash) (vector-> DB Hash [[Key | Details] | Entry]))) (define <-db Key -> (let DB (value *db*) Hash (hash Key (limit DB)) Entry (<-vector DB Hash) (find-details Key Entry))) (define find-details Key [[Key | Details] | _] -> [Key | Details] Key [_ | Entries] -> (find-details Key Entries) _ _ -> void)