p:?princ;while(a:?read\-char(?-,?-,~))#~do p(p(a));