diff --git a/extra/benchmark/randomize/randomize.factor b/extra/benchmark/randomize/randomize.factor
new file mode 100644
index 0000000000..54388a72c4
--- /dev/null
+++ b/extra/benchmark/randomize/randomize.factor
@@ -0,0 +1,9 @@
+USING: arrays kernel literals random sequences ;
+IN: benchmark.randomize
+
+CONSTANT: data $[ 10,000,000 iota >array ]
+
+: randomize-benchmark ( -- )
+    data randomize drop ;
+
+MAIN: randomize-benchmark