6 1 [do] key dup ." d" emit ." : " emit  cr [loop]