module Sqlexpr = Sqlexpr_sqlite.Make(Sqlexpr_concurrency.Id)

let db = Sqlexpr.open_db "books.db"
let search = Sqlexpr.select db sqlc"SELECT @d{id}, @s{title} FROM books WHERE title LIKE %s"
let author = Sqlexpr.select_one db sqlc"SELECT @s{author} FROM books WHERE id = %d"