diff --git a/run.scm b/run.scm
index c885782..2e32102 100644
--- a/run.scm
+++ b/run.scm
@@ -2,11 +2,7 @@
 	     (sdl2)
 	     (sdl2 ttf)
 	     (ice-9 match)
-	     (tsukundere menu button)
-	     (tsukundere game)
-	     (tsukundere scene)
-	     (tsukundere math)
-	     (tsukundere script utils))
+	     (tsukundere menu button))
 
 (define (load)
   (let* ((scene
@@ -55,59 +51,48 @@
                        #:text-pos (s32vector 0 0)
                        #:anchor 'center
                        #:text-alignment '(center . center)
-                       #:callback simple-button-callback)))
+                       #:callback simple-button-callback))
+         (nixo (make-speaker "nixo")))
     (init-script!
      (lambda ()
-       (background paper)
-       (say "nixo" "This is not an exam!")
-       (pause)
-       (say "nixo" "Chose one and press enter!")
-       (say "nixo"
-            (format #f "You choose: ~a\n"
-                    (menu
-                     '("Select me!" "Or me!" "No, select me!")
-                     #:template radio-button)))
-       (pause)
-       (say "nixo" "Chose as many as you want!")
-       (say "nixo"
-            (format #f "You selected: ~a\n"
-                    (menu '(("A") ("B") ("C"))
-                          #:template checkbox-button)))
-       (pause)
-       (say "nixo" "Click it!")
-       (say "nixo"
-            (format #f "You selected the element: ~a\n"
-                    (menu
-                     '((yep "Yes") (maybe "Maybe") (nope "No way")))))
-       (say "nixo"
-            (format #f "You selected the element number: ~a\n"
-                    (menu
-                     '("Yes" "Maybe" "No way"))))
-       (say "nixo"
-            (format #f "You selected the element: ~a\n"
-                    (menu
-                     '(("Yes") ("Maybe") ("No way")))))
-       (say "nixo"
-            (format #f "You selected the element: ~a\n"
-                    (menu
-                     '((yep "Yes") (maybe "Maybe") (nope "No way")))))
-       (pause))
+       (script
+        (begin
+          (background paper)
+          (nixo "This is not an exam!"))
+        (nixo "Chose one and press enter!")
+        (nixo
+         (format #f "You choose: ~a\n"
+                 (menu
+                  '("Select me!" "Or me!" "No, select me!")
+                  #:prototype radio-button)))
+        (nixo "Chose as many as you want!")
+        (nixo
+         (format #f "You selected: ~a\n"
+                 (menu '(("A") ("B") ("C"))
+                       #:prototype checkbox-button
+                       #:seed '() #:pressed cons)))
+        (nixo "Click it!")
+        (nixo
+         (format #f "You selected the element number: ~a\n"
+                 (menu
+                  '("Yes" "Maybe" "No way"))))
+        (nixo "Click it again!")
+        (nixo
+         (format #f "You selected the element: ~a\n"
+                 (menu
+                  '(("Yes") ("Maybe") ("No way")))))
+        (nixo "Once more!")
+        (nixo
+         (format #f "You selected the element: ~a\n"
+                 (menu
+                  '(("Yes" . yep) ("Maybe" . maybe) ("No way" . nope)))))
+        *unspecified*))
      scene)
-    (init-menu! 100 100 (s32vector 0 50) font textures
-                (s32vector 50 18)
-                #:colors colors
-                #:template simple-button)
-    (init-text! 10 300 280 font font)))
+    (init-menu! #s32(100 100) #s32(0 50) #f simple-button #:scene scene)
+    (init-text! 10 300 280 font font #:scene scene)))
 
 (run-game
  #:game-name ".tsukundere-example-buttons"
  #:window-width 400
  #:window-height 400
  #:init! load)
-
-(use-modules (ice-9 match))
-(let ((option "OK"))
-  (match option
-    (selected selected)
-    ((value selected) selected)
-    ((selected . value) selected)))