anchor.diff:          print(i and i.name, end=" ")
       print() end-code 
       // ( -- ) Prints all words in forth vocabulary
  -code . print(pop(),end=" ") end-code // ( x -- ) Print the TOS
  +code . print(pop(),end="") end-code // ( x -- ) Print the TOS
   code cr print() end-code // ( -- ) print a carriage return
   \ code .s print(stack) end-code // ( -- ) Print the data stack 
   code help
  
positive.code:     last alias <accept> // ( -- str ) Read multiple lines from terminal.
  
  code nop end-code // ( -- ) no operation
      ' nop alias </accept> // ( -- ) Ending mark of a multiple-line input
      ' nop alias d last py: pop().name=chr(4) // ( -- ) Ctrl-D ending mark of a multiple-line input
      rescan-word-hash
      
  : refill        ( -- flag ) // Reload TIB from stdin. return false means no input or EOF
  
negative.code:                     ---
                  </selftest>
  
  : count         ( thing -- thing length ) // Get length of the thing if it has
                  py: push(len(tos())) ;
  
                  <selftest>
  