import Data.Char
import Database.Sqlite3 (Val (IntV,TextV))
import qualified Database.Sqlite3 as S
import qualified Data.ByteString as B

main = do
 db <- S.open "test"
 S.bind db ins tab
 (st,row) <- S.fetchOne db "SELECT * FROM test_tab" 400
 putStr $ show row
 S.finalize st
 S.close db
 where
  ins = "INSERT INTO test_tab VALUES (?,?,?)"
  tab = replicate 500 row
  row = [TextV "test A",TextV "B test",TextV "test C test"]