/*●外道版(43byte)*/
main(){system("perl -pe's/\\b./\\U$&/g'");}