while(x:?read\-line(?-,?-,~))#~do?princ(x);