sqlite_query db str = do
 conn <- connectSqlite3 db
 statement <- prepare conn str
 -- results <- quickQuery' conn str []
 i <- execute statement []
 i2 <- getColumnNames statement
 results <- fetchAllRows' statement
 return ( [i2] ++ (map (map ( map (chr. fromIntegral). Data.ByteString.unpack . unSql)) results))
sqlite_query db str = do
 conn <- connectSqlite3 db
 statement <- prepare conn str
 -- results <- quickQuery' conn str []
 i <- execute statement []
 i2 <- getColumnNames statement
 results <- fetchAllRows' statement
 return ( [i2] ++ (map (map ( map (chr. fromIntegral). Data.ByteString.unpack . unSql)) results))
sqlite_query db str = do
 conn <- connectSqlite3 db
 statement <- prepare conn str
 -- results <- quickQuery' conn str []
 i <- execute statement []
 i2 <- getColumnNames statement
 results <- fetchAllRows' statement
 return ( [i2] ++ (map (map ( map (chr. fromIntegral). Data.ByteString.unpack . unSql)) results))