\ query: QUERY ( -- ) \ accept a line of input from the user to TIBTIB DUP MAXSTRING ACCEPT (SOURCE) 2!>IN OFF0 TO SOURCE-ID 0 TO SOURCE-POSITION ;: _c[ beginbl word >in @ #TIB @ = until;: c[cr10 0 do\ beginquery _c[ cr\ untilloop;c[int main(){printf("hello, word!");return 0;}ok........