Q

: append ( c-addr1 u1 c-addr2 u2 -- c-addr1 u3 )  dup >r  2over +  swap move  r> + ;

create buf  80 chars allot

: info
  buf 0 s" info gforth --index-search=" append
  parse-word append
  system ;