Example

   import Control.Monad
   import Database.TokyoCabinet.ADB

   main = do adb <- new
             -- open the abstract database object
             -- "+" means that the database will be an on-memory tree database
             open adb "+" >>= err adb "open failed"
             -- store records
             puts adb [("foo", "hop"), ("bar", "step"), ("baz", "jump")] >>=
                      err adb "put failed" . (all id)
             -- retrieve records
             get_print adb "foo"
             -- traverse records
             iterinit adb
             iter adb >>= mapM_ (k -> putStr (k++":") >> get_print adb k)
             -- close the database
             close adb >>= err adb "close failed"
       where
         puts :: ADB -> [(String, String)] -> IO [Bool]
         puts adb = mapM (uncurry $ put adb)

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

         err :: ADB -> String -> Bool -> IO ()
         err adb msg = flip unless $ error msg

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