INPUT : countdown dup 0 = not if peek 1 - countdown then ; 5 countdown OUTPUT 5 4 3 2 1