1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use Perl6::Form;
my @play = (
"Hamlet",
"Othello",
"Richard III",
);
my @name = (
"Claudius, King of Denmark\r\r",
"Iago\r\r",
"Henry, Earl of Richmond\r\r",
);
print form
{layout=>'down', bullet=>'.'},
"Index Character Appears in",
{under=>"_"},
"{]]}. {[[[[[[[[[[} {[[[[[[[[[[}",
[1..@name], \@name, \@play;
print "\n\n=================\n\n";
print form
{layout=>'tabular', bullet=>'.'},
"Index Character Appears in",
{under=>"_"},
"{]]}. {[[[[[[[[[[} {[[[[[[[[[[}",
[1..@name], \@name, \@play;
|
