diff --git a/console.txt b/console.txt
index 4946cc7..3b0c538 100644
--- a/console.txt
+++ b/console.txt
@@ -149,6 +149,13 @@ EXAMPLE PROGRAM FRAGMENTS
     @exit ( -- BRK )
       #80 .System/halt DEO BRK             ( ; exit immediately with code 0 )
 
+    @quit-immediately ( -- BRK )
+      #00 .running STZ                     ( ; note that we are stopping )
+      #02 .Console/opts DEO                ( ; set host action to use child 2 )
+      #03 .Console/host-put BRK            ( ; kill child process 2 )
+                                           ( ; this will trigger on-console )
+                                           ( ; and then on-child-exit. )
+
     @run-mpg123 ( path* -- )
       ;mpg123-cmd/buf scpy                 ( ; copy path into cmd buffer )      
       ;mpg123-cmd .Console/param DEO2      ( ; set up `mpg123 <path>` cmd to run )