1 2 3 4 5
let () = begin (* let _ = Relational_engine.Relation.write_and_retrieve() in () *) Relational_engine.Server.start() end