diff --git a/td6/exo2.ml b/td6/exo2.ml
new file mode 100644
index 0000000..e891e00
--- /dev/null
+++ b/td6/exo2.ml
@@ -0,0 +1,7 @@
+let radix l =
+  let r = ref 0 in
+  let running = ref true in
+  while !running do
+    running := false;
+    List.fold_left
+  done