use Perl6::Form;

%categories = (
	Animal    => \@("The mighty destrider,\nship of the knight",
				  "The patient cat, warden of the granary",
				  "Our beloved king, whom we shall soon have to kill"),
	Vegetable => \@("The lovely peony, garland of Eddore",
			      "The mighty oak, from which tiny acorns grow",
				  "The humble cabbage, both food and metaphor for the fool"),
	Mineral   => \@("Gold, for which men thirst",
				  "Salt, by which men thirst",
				  "Sand, on which men thirst",
				 ),
);

for my $category (keys %categories) {
	print form
		 \%(bullet=>'*'),
		 "** * \{<<<<<<<<<<<<<<<<<<<<<<<<<<<<\} **", $category,
		 \%(bullet=>'-'),
		 "     - \{[[[[[[[[[[[[[[[[[[[[[[[[[[\} - ", %categories{$category};
}