diff --git a/src/examples/examples.ts b/src/examples/examples.ts
index d43232084..17ebc5285 100644
--- a/src/examples/examples.ts
+++ b/src/examples/examples.ts
@@ -115,6 +115,7 @@ export function getExampleGalleries(locales: Locales): Gallery[] {
                 'Questions',
                 'RainingKitties',
                 'RotatingBinary',
+                'FontMachine',
             ]
         ),
         createGallery(
diff --git a/static/examples/FontMachine.wp b/static/examples/FontMachine.wp
new file mode 100644
index 000000000..2c899e91a
--- /dev/null
+++ b/static/examples/FontMachine.wp
@@ -0,0 +1,13 @@
+Font Machine
+=== start
+fonts: ["Arvo" "Modak" "Poor Story" "Tangerine" "Monoton" "Quicksand"]
+symbols: 'typography' ÷ ''
+
+ƒ randomize() 
+    symbols.translate(
+		ƒ (symbol) Phrase(symbol face: fonts.random() duration: 0s)
+	)
+
+phrases: randomize() … ∆ Key() | ∆ Button(⊤) … randomize()
+
+Stage([Group(Row(0 0m) phrases place: Place(0m 0m))])
\ No newline at end of file