print for first_last_map(
	{ "<li>$_[0]</li>\n" },
	{ "<li class=\"first\">$_[0]</li>\n" },
	{ "<li class=\"last\">$_[0]</li>\n" },
	qw( alpha beta gamma delta ));