diff --git a/extra/benchmark/busy-loop/busy-loop.factor b/extra/benchmark/busy-loop/busy-loop.factor
new file mode 100644
index 0000000000..8632e7d2ea
--- /dev/null
+++ b/extra/benchmark/busy-loop/busy-loop.factor
@@ -0,0 +1,9 @@
+
+USING: kernel math ;
+
+IN: benchmark.busy-loop
+
+: busy-loop-benchmark ( -- )
+    1,000,000,000 [ 1 - dup 0 > ] loop drop ;
+
+MAIN: busy-loop-benchmark