#!/usr/bin/perl
##################################################
#     1- 
##################################################

$word=shift(@ARGV);
$word_lower=lc $word;
print "$word_lower\n";
