\: DO" \:> " " swap lit lit , , lit lit , , ;
\: DOIF \:> IF lit JZ: , here dup , ;
\: DOELSE \:> ELSE lit JMP: , here dup , swap here ! ;
\: DO" \:> " " swap lit lit , , lit lit , , ;
\: DOIF \:> IF lit JZ: , here dup , ;
\: DOELSE \:> ELSE lit JMP: , here dup , swap here ! ;