Example

    import Control.Monad
    import Database.TokyoCabinet.HDB

    main = do hdb <- new
              -- open the database
              open hdb "casket.tch" [OWRITER, OCREAT] >>= err hdb
              -- store records
              puts hdb [("foo", "hop"), ("bar", "step"), ("baz", "jump")] >>=
                       err hdb . (all id)
              -- retrieve records
              get_print hdb "foo"
              -- traverse records
              iterinit hdb
              iter hdb >>= mapM_ (k -> putStr (k++":") >> get_print hdb k)
              -- close the database
              close hdb >>= err hdb
        where
          puts :: HDB -> [(String, String)] -> IO [Bool]
          puts hdb = mapM (uncurry $ put hdb)

          get_print :: HDB -> String -> IO ()
          get_print hdb key = get hdb key >>=
                              maybe (error "something goes wrong") putStrLn

  
          err :: HDB -> Bool -> IO ()
          err hdb = flip unless $ ecode hdb >>= error . show

    
          iter :: HDB -> IO [String]
          iter hdb = iternext hdb >>=
                     maybe (return []) (x -> return . (x:) =<< iter hdb)