QUERY 

\ query
: QUERY ( -- ) 
\ accept a line of input from the user to TIB
TIB DUP MAXSTRING ACCEPT (SOURCE) 2!
>IN OFF
0 TO SOURCE-ID 
0 TO SOURCE-POSITION 
;
: _c[ 
begin
bl word 
>in @ #TIB @ = 
until
;

: c[
cr
10 0 do
\ begin
query _c[ cr
\ until
loop
;
c[
int main()
{
printf("hello, word!");
return 0;
}
ok........