atom s
while 1do
s=getc(0)puts(s>0,s)s=getc(0)end while