diff --git a/99_bottles.tal b/99_bottles.tal index 0cbf945..4ddee31 100644 --- a/99_bottles.tal +++ b/99_bottles.tal @@ -40,7 +40,9 @@ #0a MUL ( 02 25 20 ) SUB ( 02 05 ) #30 ADD SWP #30 ADD - DUP LIT "0 NEQ ?{ POP } - EMIT EMIT + DUP LIT "0 EQU ?/is_zero + ¬_zero EMIT EMIT !/rest + &is_zero POP EMIT + &rest #20 EMIT ( print space ) JMP2r