#!/usr/bin/perl

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