#!/usr/bin/perl -w
use strict;

while (<STDIN>) {
  print uc($_);
}