var c:char;begin repeat read(c);write(upcase(c))until 0>1end.