diff --git a/web-world/dwarves/dwarves.rkt b/web-world/dwarves/dwarves.rkt
new file mode 100644
index 0000000..3b236bf
--- /dev/null
+++ b/web-world/dwarves/dwarves.rkt
@@ -0,0 +1,39 @@
+#lang planet dyoo/whalesong
+(require (planet dyoo/whalesong/web-world))
+(define-resource index.html)
+
+;; make-item: string -> view
+(define (make-item name)
+ (view-bind (sexp->view `(li ,name))
+ "click"
+ hide-on-click))
+
+
+;; When a dwarf clicks, it hides!
+(define (hide-on-click w v)
+ (view-hide v))
+
+
+(define dwarf-names
+ '("Doc" "Grumpy" "Happy" "Sleepy" "Bashful" "Sneezy" "Dopey"))
+
+
+;; Update the view so it shows the next dwarf on the scene,
+;; until we're all done.
+(define (draw w v)
+ (cond [(< w (length dwarf-names))
+ (view-append (view-focus v "ul")
+ (make-item (list-ref dwarf-names w)))]
+ [else
+ v]))
+
+
+;; tick: world view -> world
+(define (tick w v)
+ (add1 w))
+
+
+(big-bang 0
+ (initial-view index.html)
+ (on-tick tick 1)
+ (to-draw draw))
diff --git a/web-world/dwarves/index.html b/web-world/dwarves/index.html
new file mode 100644
index 0000000..3a895a6
--- /dev/null
+++ b/web-world/dwarves/index.html
@@ -0,0 +1,6 @@
+
+ Dwarves
+
+
+
+
diff --git a/web-world/info.rkt b/web-world/info.rkt
new file mode 100644
index 0000000..7e41f36
--- /dev/null
+++ b/web-world/info.rkt
@@ -0,0 +1,3 @@
+#lang setup/infotab
+
+(define compile-omit-paths '("examples"))