? "Waiting for remote connection..."
open "SOCL:8080" as #1
? "Connected."
while (not eof(1))
    lineinput #1, s
    print s
wend
close #1