(loop(if(find(princ(read-char))"so")(terpri)))