val pgc : unit -> Postgres.connection
val init : unit -> unit
val close : unit -> unit