diff --git a/99_bottles.tal b/99_bottles.tal
index 7cec22c..7a13233 100644
--- a/99_bottles.tal
+++ b/99_bottles.tal
@@ -2,6 +2,7 @@
 |0100
 	;bottles-of-beer print
 	;on-the-wall print
+	( incrment num )
 	;bottles-of-beer print
 	BRK
 
@@ -15,7 +16,9 @@
 
 @print ( str* -: )
 	( LDAk LIT "_ NEQk ?print/space )
- 	LDAk #18 DEO
+ 	LDAk DUP #5f NEQ
+	?{ POP #20 }
+	#18 DEO
 	INC2 LDAk ?print
 	( print newline )
 	#0a #18 DEO