@initialize:ocaml@ @@ open Postgresql (* let conn = let conninfo = "" in new Postgresql.connection ~conninfo () *) @r@ identifier f; expression x,a; @@ f(x,a) @script:ocaml@ f << r.f; y << r.x; yy << r.a; @@ if Str.string_match (Str.regexp "^foo") f 0 then Printf.eprintf "Fct '%s' matchs \"^foo\"\n" f else Printf.eprintf "Fct '%s' does not match \"^foo\"\n" f @finalize:ocaml@ @@ () (* conn#finish *)