diff --git a/extra/benchmark/terrain-generation/terrain-generation.factor b/extra/benchmark/terrain-generation/terrain-generation.factor
new file mode 100644
index 0000000000..7fbb0ff43f
--- /dev/null
+++ b/extra/benchmark/terrain-generation/terrain-generation.factor
@@ -0,0 +1,10 @@
+! (c)Joe Groff bsd license
+USING: io kernel terrain.generation threads ;
+IN: benchmark.terrain-generation
+
+: terrain-generation-benchmark ( -- )
+    "Generating terrain segment..." write flush yield
+    <terrain> { 0.0 0.0 } terrain-segment drop
+    "done" print ;
+
+MAIN: terrain-generation-benchmark