#!/usr/bin/perl -w

foreach (@ARGV) {
	s/^(.)//;
	$a = $1;
	$a =~ tr/a-z/A-Z/;
	$_ = "$a$_";
}
my $god = join " ", @ARGV;

print <<END;
I invoke thee, O $god!
END
