# The main subroutine in question
sub MessagePrinter
{
	my(@logmessages) = @_;

	ULStart();
		foreach $message (@logmessages)
			{
				LI(); 
				Strong($message);
			 			}	
	ULEnd();
}

############################################
# Suppporting subroutines

sub ULStart
{
	print "<UL>";
}


sub LI
{ 
	my($inputValue) = @_;
	print "<LI>$inputValue\n";

}

sub ULEnd
{
	print "</UL>";

}
	######################################