diff --git a/src/experimental/pnoise1s.scad b/src/experimental/pnoise1s.scad
new file mode 100644
index 00000000..61529e27
--- /dev/null
+++ b/src/experimental/pnoise1s.scad
@@ -0,0 +1,6 @@
+use <util/rand.scad>;
+use <experimental/_impl/_pnoise1_impl.scad>;
+
+function pnoise1s(xs, seed) = 
+    let(sd = is_undef(seed) ? floor(rand(0, 256)) : seed % 256)
+    [for(x = xs) _pnoise1_impl(x, sd)];
\ No newline at end of file