let () =
  begin
    let _ = Relational_engine.Relation.write_and_retrieve() in ()
  end