; fibonacci hash
(define (fibhash h)
(let ((two64 (expt 2 64)) (two54 (expt 2 54)))
(quotient (modulo (* h 11400714819323198485) two64)
two54)))
(display (fibhash 123412341234)) (newline)
(display (fibhash 12341234123412341234)) (newline)
(display (fibhash 1234123412341234123412341234)) (newline)
OyBmaWJvbmFjY2kgaGFzaAoKKGRlZmluZSAoZmliaGFzaCBoKQogIChsZXQgKCh0d282NCAoZXhwdCAyIDY0KSkgKHR3bzU0IChleHB0IDIgNTQpKSkKICAgIChxdW90aWVudCAobW9kdWxvICgqIGggMTE0MDA3MTQ4MTkzMjMxOTg0ODUpIHR3bzY0KQogICAgICAgICAgICAgIHR3bzU0KSkpCgooZGlzcGxheSAoZmliaGFzaCAxMjM0MTIzNDEyMzQpKSAobmV3bGluZSkKKGRpc3BsYXkgKGZpYmhhc2ggMTIzNDEyMzQxMjM0MTIzNDEyMzQpKSAobmV3bGluZSkKKGRpc3BsYXkgKGZpYmhhc2ggMTIzNDEyMzQxMjM0MTIzNDEyMzQxMjM0MTIzNCkpIChuZXdsaW5lKQ==