\ 4tH library - TOOLBELT EMITS - Copyright 2005 J.L. Bezemer \ You can redistribute this file and/or modify it under \ the terms of the GNU General Public License [UNDEFINED] emits [IF] : emits swap 0 ?do dup emit loop drop ; ( n c --) [THEN]