diff --git a/gui/wireworld/wireworld.tal b/gui/wireworld/wireworld.tal
index 3819b37..c920381 100644
--- a/gui/wireworld/wireworld.tal
+++ b/gui/wireworld/wireworld.tal
@@ -198,7 +198,7 @@ JMP2r
 @redraw ( -- )
 
 	;cell-icn .Screen/addr DEO2
-	#01 .Screen/auto DEO
+	[ LIT2 01 -Screen/auto ] DEO
 	#0000
 		DUP2 .Screen/x DEO2
 		.Screen/y DEO2
@@ -218,16 +218,18 @@ JMP2r
 @draw-ui ( -- )
 
 	( colors )
-	#01 .Screen/auto DEO
-	#0010 DUP2 .Screen/x DEO2 .Screen/y DEO2
+	[ LIT2 01 -Screen/auto ] DEO
+	#0010
+		DUP2 .Screen/x DEO2
+		.Screen/y DEO2
 	;cell-icn .Screen/addr DEO2
-	#01 .Screen/sprite DEO
-	#02 .Screen/sprite DEO
-	#03 .Screen/sprite DEO
+	[ LIT2 01 -Screen/sprite ] DEO
+	[ LIT2 02 -Screen/sprite ] DEO
+	[ LIT2 03 -Screen/sprite ] DEO
 	( toggle )
 	#0030 .Screen/x DEO2
-	;toggle-icn #00 .timer/play LDZ #30 SFT2 ADD2 .Screen/addr DEO2
-	#01 .Screen/sprite DEO
+	;toggle-icn [ LIT2 00 -timer/play ] LDZ #30 SFT2 ADD2 .Screen/addr DEO2
+	[ LIT2 01 -Screen/sprite ] DEO
 
 JMP2r