table t : { A : int, B : float, C : string, D : bool } fun list () = rows <- queryX (SELECT * FROM t) (fn row => {[row.T.A]} {[row.T.B]} {[row.T.C]} {[row.T.D]} [delete] ); return {rows}
A B C D



A:
B:
C:
D:
and add r = dml (INSERT INTO t (A, B, C, D) VALUES ({[readError r.A]}, {[readError r.B]}, {[r.C]}, {[r.D]})); xml <- list (); return

Row added.

{xml}
and delete a = dml (DELETE FROM t WHERE t.A = {[a]}); xml <- list (); return

Row deleted.

{xml}
fun main () = xml <- list (); return {xml}