diff --git a/src/experimental/_impl/_mz_hamiltonian_impl.scad b/src/experimental/_impl/_mz_hamiltonian_impl.scad
index a3cc17ab..c4eec0bb 100644
--- a/src/experimental/_impl/_mz_hamiltonian_impl.scad
+++ b/src/experimental/_impl/_mz_hamiltonian_impl.scad
@@ -1,4 +1,4 @@
-use <experimental/has.scad>;
+use <util/has.scad>;
 
 function _mz_hamiltonian_upper(x, y) =
     let(
diff --git a/src/experimental/_impl/_px_surround_impl.scad b/src/experimental/_impl/_px_surround_impl.scad
index d33354c5..1913bf1f 100644
--- a/src/experimental/_impl/_px_surround_impl.scad
+++ b/src/experimental/_impl/_px_surround_impl.scad
@@ -1,4 +1,4 @@
-use <experimental/has.scad>;
+use <util/has.scad>;
 
 function _px_surround_corner_value(pts, x, y) =
     let(
diff --git a/src/experimental/mz_hamiltonian.scad b/src/experimental/mz_hamiltonian.scad
index 00a66860..c6ae1b5b 100644
--- a/src/experimental/mz_hamiltonian.scad
+++ b/src/experimental/mz_hamiltonian.scad
@@ -1,7 +1,7 @@
 use <experimental/_impl/_mz_hamiltonian_impl.scad>;
 use <experimental/mz_blocks.scad>;
 use <experimental/mz_get.scad>;
-use <experimental/dedup.scad>;
+use <util/dedup.scad>;
 
 function mz_hamiltonian(rows, columns, start) =
     let(
diff --git a/src/experimental/px_polygon.scad b/src/experimental/px_polygon.scad
index 8124f44b..dc33449f 100644
--- a/src/experimental/px_polygon.scad
+++ b/src/experimental/px_polygon.scad
@@ -1,7 +1,7 @@
 use <in_shape.scad>;
 use <util/sort.scad>;
+use <util/dedup.scad>;
 use <pixel/px_polyline.scad>;
-use <experimental/dedup.scad>;
 
 function px_polygon(points) =
     let(
diff --git a/src/experimental/todo.txt b/src/experimental/todo.txt
index 07cf02b2..4ad3fe86 100644
--- a/src/experimental/todo.txt
+++ b/src/experimental/todo.txt
@@ -6,4 +6,6 @@
 
 Preview
 
-- sweep
\ No newline at end of file
+- sweep
+- util/has
+- util/dedup
\ No newline at end of file
diff --git a/src/experimental/_impl/_dedup_impl.scad b/src/util/_impl/_dedup_impl.scad
similarity index 85%
rename from src/experimental/_impl/_dedup_impl.scad
rename to src/util/_impl/_dedup_impl.scad
index b901b717..dcf7d113 100644
--- a/src/experimental/_impl/_dedup_impl.scad
+++ b/src/util/_impl/_dedup_impl.scad
@@ -1,4 +1,4 @@
-use <experimental/has.scad>;
+use <util/has.scad>;
 
 function _dedup(src, dest, leng, i = 0) = 
     i == leng ? dest :
diff --git a/src/experimental/dedup.scad b/src/util/dedup.scad
similarity index 51%
rename from src/experimental/dedup.scad
rename to src/util/dedup.scad
index be8c6e7c..0f0305b5 100644
--- a/src/experimental/dedup.scad
+++ b/src/util/dedup.scad
@@ -1,3 +1,3 @@
-use <experimental/_impl/_dedup_impl.scad>;
+use <util/_impl/_dedup_impl.scad>;
 
 function dedup(lt) = _dedup(lt, [], len(lt));
\ No newline at end of file
diff --git a/src/experimental/has.scad b/src/util/has.scad
similarity index 100%
rename from src/experimental/has.scad
rename to src/util/has.scad