module Sqlexpr : sig ... end
val db : Sqlexpr.db
val search :
  string ->
  (int * string) list Sqlexpr.result
val author : int -> string Sqlexpr.result