open 1,"/dev/fd/0"
while(!eof(1))
line input#1 s$
?s$;
wend