@stdin=<>;

for $i (0..$#stdin){
print $stdin[$i];
}

for $i (0..$#stdin){
print uc $stdin[$i];
}