diff --git a/wasm/app/app.js b/wasm/app/app.js
index bd26c0a..225ddcc 100644
--- a/wasm/app/app.js
+++ b/wasm/app/app.js
@@ -12,34 +12,11 @@ import { oneDark } from "@codemirror/theme-one-dark";
 import { openVault } from "./crypto.js";
 
 const TIERS = { python: "python (pyodide)", c: "c (emcc)", asm: "asm (wat)" };
-const FREE_FORM_DEFAULT = `; free-form mode — write any lisp, race all three tiers.
-; unlock the vault below to persist this code (encrypted localStorage).
-;
-; below: a tiny version of the cross-tier functional.lsp runner.
+const FREE_FORM_DEFAULT = `; free-form mode — unlock the vault below to persist this code
+; encrypted in localStorage with your password
 
-(define pass 0)
-(define fail 0)
-(define (check name got expected)
-  (cond ((equal? got expected)
-         (set! pass (+ pass 1))
-         (display "PASS: ") (display name) (newline))
-        (else
-         (set! fail (+ fail 1))
-         (display "FAIL: ") (display name)
-         (display " got=") (display got)
-         (display " expected=") (display expected) (newline))))
-
-(check "arithmetic"   (+ 1 2)                        3)
-(check "division"     (/ 42 6)                       7)
-(check "string"       (string-append "foo" "bar")    "foobar")
-(check "list reverse" (reverse (list 1 2 3))         (list 3 2 1))
-(check "vector len"   (vector-length (vector 1 2 3)) 3)
-(check "char"         (char->integer #\\A)            65)
-(check "let loop"     (let loop ((i 0) (n 0))
-                        (if (= i 10) n (loop (+ i 1) (+ n i)))) 45)
-
-(display pass) (display " pass, ") (display fail) (display " fail")
-(newline)
+(print "67")
+(/ 42 6)
 `;
 
 const demoSources = {};
diff --git a/www/playground/app.js b/www/playground/app.js
index bd26c0a..225ddcc 100644
--- a/www/playground/app.js
+++ b/www/playground/app.js
@@ -12,34 +12,11 @@ import { oneDark } from "@codemirror/theme-one-dark";
 import { openVault } from "./crypto.js";
 
 const TIERS = { python: "python (pyodide)", c: "c (emcc)", asm: "asm (wat)" };
-const FREE_FORM_DEFAULT = `; free-form mode — write any lisp, race all three tiers.
-; unlock the vault below to persist this code (encrypted localStorage).
-;
-; below: a tiny version of the cross-tier functional.lsp runner.
+const FREE_FORM_DEFAULT = `; free-form mode — unlock the vault below to persist this code
+; encrypted in localStorage with your password
 
-(define pass 0)
-(define fail 0)
-(define (check name got expected)
-  (cond ((equal? got expected)
-         (set! pass (+ pass 1))
-         (display "PASS: ") (display name) (newline))
-        (else
-         (set! fail (+ fail 1))
-         (display "FAIL: ") (display name)
-         (display " got=") (display got)
-         (display " expected=") (display expected) (newline))))
-
-(check "arithmetic"   (+ 1 2)                        3)
-(check "division"     (/ 42 6)                       7)
-(check "string"       (string-append "foo" "bar")    "foobar")
-(check "list reverse" (reverse (list 1 2 3))         (list 3 2 1))
-(check "vector len"   (vector-length (vector 1 2 3)) 3)
-(check "char"         (char->integer #\\A)            65)
-(check "let loop"     (let loop ((i 0) (n 0))
-                        (if (= i 10) n (loop (+ i 1) (+ n i)))) 45)
-
-(display pass) (display " pass, ") (display fail) (display " fail")
-(newline)
+(print "67")
+(/ 42 6)
 `;
 
 const demoSources = {};