●止まらない問題修正版(56byte)
b;main(a){b=getchar();~b&&main(putchar(b-a>64?b-32:b));}

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