table t : {Id : int, A : string, B : float} PRIMARY KEY Id open BatchFun.Make(struct val tab = t val title = "BatchG" val cols = {A = BatchFun.string "A", B = BatchFun.float "B"} end)