#!/usr/local/bin/perl
$A="FuCkYoU";
print lc($A);
print "\n";
print uc($A);