#!/usr/bin/perl

$riga = "";
while ($riga = <STDIN>)
  {
    $riga = uc ($riga);
    print STDOUT ("$riga");
  }
