#!/usr/bin/perl

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