read i;read l;while((i--));do l=`tr A-Za-z B-ZAb-za<<<$l`;done;tr !? ?!<<<$l