diff --git a/src/tools.ml b/src/tools.ml
new file mode 100644
index 0000000..960a82a
--- /dev/null
+++ b/src/tools.ml
@@ -0,0 +1,7 @@
+(* Yes, we have to repeat open Graph. *)
+open Graph
+
+(* assert false is of type ∀α.α, so the type-checker is happy. *)
+let clone_nodes gr = assert false
+let gmap gr f = assert false
+let add_arc gr f = assert false
\ No newline at end of file
diff --git a/src/tools.mli b/src/tools.mli
new file mode 100644
index 0000000..d2b4af8
--- /dev/null
+++ b/src/tools.mli
@@ -0,0 +1,5 @@
+open Graph
+
+val clone_nodes: 'a graph -> 'b graph
+val gmap: 'a graph -> ('a -> 'b) -> 'b graph
+val add_arc: int graph -> id -> id -> int -> int graph
\ No newline at end of file