diff --git a/main.fs b/main.fs
index ff58bac..ab47db5 100644
--- a/main.fs
+++ b/main.fs
@@ -118,12 +118,16 @@ S" you feel like throwing some stuff into the pool." set-message
 	page
 	." Entering debug/cheat mode!"
 	page ; 
-	
+
+\ throw-device throws a device into the pool.
+: throw-device 1 devices +! devices changed ;
+
 \ the word handle-input handles input every time around the game loop.
 : handle-input 
     key? if key case 
         [char] q of exit-game endof
         [char] h of hire-chat-member endof
+        [char] t of throw-device endof
         [char] D of debug-console endof
     endcase then ;
 
@@ -158,6 +162,7 @@ S" you feel like throwing some stuff into the pool." set-message
 \ draw-actions draws a list of the actions you've unlocked.
 : draw-actions
 	1 4 at-xy
+	." (t)hrow a device into the pool" cr 1 move-right
 	draw-members cr 1 move-right
 	." (q)uit (without saving)" ;