(while:prn:upcase:coerce(+(read)0)'string 16)