code 'words', words
        push ebx
        mov ebx, [last]
.1	  mov ebx,[ebx]
	  or ebx,ebx
	  jz .end
	  dup
	  lea eax,[ebx+8]
      dup
	movzx eax,byte [eax]
	inc dword [esi]
	  call $type
	  upsh 32
          call emit
	  jmp short .1
.end	pop ebx
next
