Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.raku.ref is written in an unsupported language. File is not indexed.
0001 <Keyword>#!/usr/bin/perl6</Keyword><br/> 0002 <Normal Text></Normal Text><br/> 0003 <Keyword>use</Keyword><Normal Text> v6</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0004 <Normal Text></Normal Text><br/> 0005 <Control Flow>if</Control Flow><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0006 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0007 <Symbol>}</Symbol><br/> 0008 <Normal Text></Normal Text><br/> 0009 <Control Flow>if</Control Flow><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0010 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># Bad indentation intended</Comment><br/> 0011 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0012 <Normal Text></Normal Text><br/> 0013 <Control Flow>if</Control Flow><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0014 <Normal Text></Normal Text><br/> 0015 <Control Flow>if</Control Flow><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Symbol>}</Symbol><br/> 0016 <Normal Text></Normal Text><br/> 0017 <Control Flow>if</Control Flow><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Goodbye</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>world</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0018 <Normal Text></Normal Text><br/> 0019 <Comment>## </Comment><Region Marker>BEGIN</Region Marker><Comment> Comments</Comment><br/> 0020 <Normal Text></Normal Text><br/> 0021 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Comment>#`( blah </Comment><Alert Level 2>TODO</Alert Level 2><Comment> blah</Comment><br/> 0022 <Comment>here? )</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0023 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Comment>#`{{ blah </Comment><Alert Level 2>TODO</Alert Level 2><Comment> blah</Comment><br/> 0024 <Comment>here? }}</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0025 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Comment>#`[[ blah </Comment><Alert Level 2>TODO</Alert Level 2><Comment> blah ]</Comment><br/> 0026 <Comment>here? ]]</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0027 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Comment>#`««« blah </Comment><Alert Level 2>TODO</Alert Level 2><Comment> blah</Comment><br/> 0028 <Comment>here? »»»</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0029 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Comment>#` ( blah </Comment><Alert Level 2>TODO</Alert Level 2><Comment> blah</Comment><br/> 0030 <Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0031 <Normal Text></Normal Text><br/> 0032 <Comment>#`[</Comment><br/> 0033 <Comment> This is another multi-line comment. ]</Comment><br/> 0034 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@sorted</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>@names</Variable><Member Operator>.</Member Operator><Normal Text>sort</Normal Text><Symbol>({</Symbol><Normal Text> </Normal Text><Variable>%sets</Variable><Symbol>{</Symbol><Variable>$_</Variable><Symbol>}</Symbol><Normal Text> </Normal Text><Symbol>})</Symbol><Member Operator>.</Member Operator><Normal Text>sort</Normal Text><Symbol>({</Symbol><Normal Text> </Normal Text><Variable>%matches</Variable><Symbol>{</Symbol><Variable>$_</Variable><Symbol>}</Symbol><Normal Text> </Normal Text><Symbol>})</Symbol><Member Operator>.</Member Operator><Normal Text>reverse</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0035 <Comment>#`{ So is this, though it's not actually multi-line. }</Comment><br/> 0036 <Normal Text></Normal Text><br/> 0037 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>code again</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0038 <Normal Text></Normal Text><br/> 0039 <Comment>#`( Multiple line comments `( sub-comment )`)</Comment><Normal Text>`</Normal Text><br/> 0040 <Normal Text></Normal Text><br/> 0041 <Comment>## </Comment><Region Marker>END</Region Marker><Comment> Comments</Comment><br/> 0042 <Normal Text></Normal Text><br/> 0043 <Comment>#`[</Comment><br/> 0044 <Comment>And this is how a multi would work.</Comment><br/> 0045 <Comment>That says why we do what we do below.</Comment><br/> 0046 <Comment>]</Comment><br/> 0047 <Normal Text></Normal Text><br/> 0048 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>No more</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0049 <Normal Text></Normal Text><br/> 0050 <Comment>#`{{a}a}}</Comment><Normal Text> </Normal Text><Function>say</Function><Normal Text> ok</Normal Text><br/> 0051 <Normal Text></Normal Text><br/> 0052 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>No more</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0053 <Normal Text></Normal Text><br/> 0054 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>this is code</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0055 <Normal Text></Normal Text><br/> 0056 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/> 0057 <Pod Paragraph></Pod Paragraph><br/> 0058 <Pod Paragraph>A very simple Pod6 document</Pod Paragraph><br/> 0059 <Pod Paragraph></Pod Paragraph><br/> 0060 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/> 0061 <Normal Text></Normal Text><br/> 0062 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>head1</Pod Typename Value><br/> 0063 <Pod Paragraph>Top Level Heading</Pod Paragraph><br/> 0064 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>head1</Pod Typename Value><br/> 0065 <Normal Text></Normal Text><br/> 0066 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> Top level heading</Pod Typename Value><br/> 0067 <Normal Text></Normal Text><br/> 0068 <Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>head1</Pod Typename><br/> 0069 <Pod Typename Value>Top Level Heading</Pod Typename Value><br/> 0070 <Normal Text></Normal Text><br/> 0071 <Pod>=</Pod><Pod Unknown>cutsdads</Pod Unknown><br/> 0072 <Normal Text></Normal Text><br/> 0073 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/> 0074 <Pod Paragraph></Pod Paragraph><br/> 0075 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> This is a head1 title</Pod Typename Value><br/> 0076 <Pod Paragraph></Pod Paragraph><br/> 0077 <Pod Paragraph>This is a paragraph.</Pod Paragraph><br/> 0078 <Pod Paragraph></Pod Paragraph><br/> 0079 <Pod>=</Pod><Pod Typename>head2</Pod Typename><Pod Typename Value> Subsection</Pod Typename Value><br/> 0080 <Pod Typename Value># plop</Pod Typename Value><br/> 0081 <Pod Typename Value>Here some text for the subsection.</Pod Typename Value><br/> 0082 <Pod Paragraph></Pod Paragraph><br/> 0083 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/> 0084 <Normal Text></Normal Text><br/> 0085 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>caption</Pod Key><Pod Operator><</Pod Operator><Pod Config>My Tasks</Pod Config><Pod Operator>></Pod Operator><br/> 0086 <Pod Paragraph>mow lawn</Pod Paragraph><br/> 0087 <Pod Paragraph>take out trash</Pod Paragraph><br/> 0088 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><br/> 0089 <Normal Text></Normal Text><br/> 0090 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> This is a heading block</Pod Typename Value><br/> 0091 <Pod Typename Value>This is an ordinary paragraph.</Pod Typename Value><br/> 0092 <Pod Typename Value>Its text will be squeezed and</Pod Typename Value><br/> 0093 <Pod Typename Value>short lines filled. It is terminated by</Pod Typename Value><br/> 0094 <Pod Typename Value>the first blank line.</Pod Typename Value><br/> 0095 <Normal Text></Normal Text><br/> 0096 <Pod>=</Pod><Pod Typename>head2</Pod Typename><Pod Typename Value> This is another heading block</Pod Typename Value><br/> 0097 <Pod Typename Value>This is yet another ordinary paragraph,</Pod Typename Value><br/> 0098 <Pod Typename Value>at the first virtual column set by the</Pod Typename Value><br/> 0099 <Pod Typename Value>previous directive</Pod Typename Value><br/> 0100 <Normal Text></Normal Text><br/> 0101 <Comment>#</Comment><Pod Operator>|</Pod Operator><Comment> Base class for magicians</Comment><br/> 0102 <Keyword>class</Keyword><Normal Text> </Normal Text><Data Type>Magician</Data Type><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0103 <Normal Text> </Normal Text><Variable Storage>has</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$</Variable><Twigil>.</Twigil><Variable>level</Variable><Separator Symbol>;</Separator Symbol><br/> 0104 <Normal Text> </Normal Text><Variable Storage>has</Variable Storage><Normal Text> </Normal Text><Data Type>Str</Data Type><Normal Text> </Normal Text><Variable>@</Variable><Twigil>.</Twigil><Variable>spells</Variable><Separator Symbol>;</Separator Symbol><br/> 0105 <Symbol>}</Symbol><br/> 0106 <Normal Text></Normal Text><br/> 0107 <Comment>#</Comment><Pod Operator>|</Pod Operator><Comment> Fight mechanics</Comment><br/> 0108 <Declare Routine>sub</Declare Routine><Normal Text> duel</Normal Text><Symbol>(</Symbol><Data Type>Magician</Data Type><Normal Text> </Normal Text><Variable>$a</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Data Type>Magician</Data Type><Normal Text> </Normal Text><Variable>$b</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0109 <Symbol>}</Symbol><br/> 0110 <Comment>#</Comment><Pod Operator>=</Pod Operator><Comment>«<((</Comment><br/> 0111 <Comment> <Magicians only, no mortals. ></Comment><br/> 0112 <Comment> Magicians only, no mortals.</Comment><br/> 0113 <Comment>))>»</Comment><br/> 0114 <Normal Text></Normal Text><br/> 0115 <Function>say</Function><Normal Text> </Normal Text><Data Type>Magician</Data Type><Member Operator>.</Member Operator><Data Type>WHY</Data Type><Separator Symbol>;</Separator Symbol><br/> 0116 <Normal Text></Normal Text><br/> 0117 <Comment>#</Comment><Pod Operator>|</Pod Operator><Comment><< This is an example of stringification:</Comment><br/> 0118 <Comment> * Numbers turn into strings</Comment><br/> 0119 <Comment> > * Regexes operate on said strings</Comment><br/> 0120 <Comment> * C<with> topicalizes and places result into $_</Comment><br/> 0121 <Comment>>></Comment><br/> 0122 <Declare Routine>sub</Declare Routine><Normal Text> search-in-seq</Normal Text><Symbol>(</Symbol><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$end</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$number</Variable><Normal Text> </Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0123 <Normal Text> </Normal Text><Control Flow>with</Control Flow><Normal Text> </Normal Text><Symbol>(</Symbol><Operator>^</Operator><Variable>$end</Variable><Symbol>)</Symbol><Member Operator>.</Member Operator><Normal Text>grep</Normal Text><Symbol>(</Symbol><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern Control Flow>^</Pattern Control Flow><Variable>$number</Variable><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0124 <Normal Text> </Normal Text><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$_</Variable><String Delimiter><></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0125 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0126 <Symbol>}</Symbol><br/> 0127 <Comment>#</Comment><Pod Operator>=</Pod Operator><Comment> Uses * topic * decont operator</Comment><br/> 0128 <Normal Text></Normal Text><br/> 0129 <Normal Text></Normal Text><br/> 0130 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/> 0131 <Pod Typename Value>abc</Pod Typename Value><br/> 0132 <Normal Text></Normal Text><br/> 0133 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/> 0134 <Pod>=</Pod><Pod Typename>para</Pod Typename><br/> 0135 <Pod Typename Value>abc</Pod Typename Value><br/> 0136 <Normal Text></Normal Text><br/> 0137 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/> 0138 <Normal Text> </Normal Text><Pod Typename Value>abc</Pod Typename Value><br/> 0139 <Pod Typename Value>abc</Pod Typename Value><br/> 0140 <Normal Text></Normal Text><br/> 0141 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/> 0142 <Pod Typename Value>abc</Pod Typename Value><br/> 0143 <Normal Text></Normal Text><br/> 0144 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/> 0145 <Normal Text></Normal Text><br/> 0146 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/> 0147 <Normal Text></Normal Text><br/> 0148 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/> 0149 <Normal Text></Normal Text><br/> 0150 <Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>head1</Pod Typename><br/> 0151 <Pod Typename Value>plop</Pod Typename Value><br/> 0152 <Normal Text></Normal Text><br/> 0153 <Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>table</Pod Typename><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>conf</Pod Key><Pod Operator>[</Pod Operator><Pod Config>str</Pod Config><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><String>'str</String><String Delimiter>'</String Delimiter><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><String>"str</String><String Delimiter>"</String Delimiter><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><Decimal>1</Decimal><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><Data Type>True</Data Type><Pod Operator>]</Pod Operator><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>conf</Pod Key><Pod Operator>(</Pod Operator><Pod Config>str</Pod Config><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><String>'str</String><String Delimiter>'</String Delimiter><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><String>"str</String><String Delimiter>"</String Delimiter><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><Decimal>1</Decimal><Pod Operator>,</Pod Operator><Pod Config> </Pod Config><Data Type>True</Data Type><Pod Operator>)</Pod Operator><br/> 0154 <Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>table</Pod Typename><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>conf</Pod Key><Pod Operator><</Pod Operator><Pod Config>str </Pod Config><String>'str</String><String Delimiter>'</String Delimiter><Pod Config> </Pod Config><String>"str</String><String Delimiter>"</String Delimiter><Pod Config> </Pod Config><Decimal>1</Decimal><Pod Config> </Pod Config><Data Type>True</Data Type><Pod Operator>></Pod Operator><br/> 0155 <Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>table</Pod Typename><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>conf</Pod Key><Pod Operator>{</Pod Operator><Pod Config>k </Pod Config><Pod Operator>=></Pod Operator><Pod Config> str</Pod Config><Pod Operator>,</Pod Operator><Pod Config> k</Pod Config><Pod Operator>=></Pod Operator><String>'str</String><String Delimiter>'</String Delimiter><Pod Operator>,</Pod Operator><Pod Config> k</Pod Config><Pod Operator>=></Pod Operator><String>"str</String><String Delimiter>"</String Delimiter><Pod Operator>,</Pod Operator><Pod Config> k</Pod Config><Pod Operator>=></Pod Operator><Decimal>1</Decimal><Pod Operator>,</Pod Operator><Pod Config> k</Pod Config><Pod Operator>=></Pod Operator><Data Type>True</Data Type><Pod Operator>}</Pod Operator><br/> 0156 <Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>table</Pod Typename><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>a</Pod Key><Normal Text> </Normal Text><Pod Operator>:!</Pod Operator><Pod Key>b</Pod Key><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Decimal>42</Decimal><Pod Key>k</Pod Key><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Error>+s</Error><br/> 0157 <Pod Typename Value>abc</Pod Typename Value><br/> 0158 <Normal Text></Normal Text><br/> 0159 <Function>say</Function><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0160 <Normal Text></Normal Text><br/> 0161 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/> 0162 <Pod Paragraph>abc</Pod Paragraph><br/> 0163 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/> 0164 <Normal Text></Normal Text><br/> 0165 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><Normal Text> </Normal Text><Error>sa</Error><br/> 0166 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><br/> 0167 <Function>say</Function><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0168 <Normal Text></Normal Text><br/> 0169 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/> 0170 <Pod Paragraph>abc</Pod Paragraph><br/> 0171 <Pod Paragraph></Pod Paragraph><br/> 0172 <Pod Paragraph>abc</Pod Paragraph><br/> 0173 <Pod Paragraph></Pod Paragraph><br/> 0174 <Pod Paragraph>abc</Pod Paragraph><br/> 0175 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/> 0176 <Function>say</Function><Normal Text> </Normal Text><Decimal>0</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0177 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><Pod Operator>:</Pod Operator><Pod Key>config</Pod Key><Pod Operator>{</Pod Operator><Decimal>42</Decimal><Pod Operator>}</Pod Operator><br/> 0178 <Pod Paragraph>abc</Pod Paragraph><br/> 0179 <Pod Paragraph></Pod Paragraph><br/> 0180 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> The</Pod Typename Value><br/> 0181 <Pod Typename Value>Title</Pod Typename Value><br/> 0182 <Pod Paragraph></Pod Paragraph><br/> 0183 <Pod Paragraph>abc</Pod Paragraph><br/> 0184 <Pod>=</Pod><Pod Block>end</Pod Block><Error> ab</Error><br/> 0185 <Function>say</Function><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0186 <Normal Text></Normal Text><br/> 0187 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><Normal Text> </Normal Text><Error>sa</Error><br/> 0188 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><br/> 0189 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/> 0190 <Pod Paragraph>abc</Pod Paragraph><br/> 0191 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><br/> 0192 <Pod Paragraph>abc</Pod Paragraph><br/> 0193 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><Error> a</Error><br/> 0194 <Pod Paragraph>abc</Pod Paragraph><br/> 0195 <Pod Paragraph></Pod Paragraph><br/> 0196 <Pod Paragraph>abc</Pod Paragraph><br/> 0197 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/> 0198 <Function>say</Function><Normal Text> </Normal Text><Decimal>3</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0199 <Normal Text></Normal Text><br/> 0200 <Pod>=</Pod><Pod Typename>item</Pod Typename><Pod Typename Value> a</Pod Typename Value><br/> 0201 <Pod>=</Pod><Pod Typename>item</Pod Typename><Pod Typename Value> b</Pod Typename Value><br/> 0202 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/> 0203 <Pod Verbatim> =item a</Pod Verbatim><br/> 0204 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/> 0205 <Normal Text></Normal Text><br/> 0206 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/> 0207 <Pod Verbatim> =item a</Pod Verbatim><br/> 0208 <Pod Verbatim> b</Pod Verbatim><br/> 0209 <Pod Verbatim>=end code d</Pod Verbatim><br/> 0210 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/> 0211 <Normal Text></Normal Text><br/> 0212 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>comment</Pod Typename Value><br/> 0213 <Comment>Here are several</Comment><br/> 0214 <Comment>lines</Comment><br/> 0215 <Comment>of comment</Comment><br/> 0216 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>comment</Pod Typename Value><br/> 0217 <Normal Text></Normal Text><br/> 0218 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/> 0219 <Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> ac</Pod Typename Value><Pod Bold>B<<</Pod Bold><Pod Italic>I<a></Pod Italic><Pod Bold>>></Pod Bold><Pod Typename Value>a </Pod Typename Value><Pod Bold>B<c></Pod Bold><Pod Typename Value> </Pod Typename Value><Pod Underline>U<d></Pod Underline><Pod Typename Value> B</Pod Typename Value><Pod Bold>B<a></Pod Bold><br/> 0220 <Pod Paragraph></Pod Paragraph><br/> 0221 <Pod Verbatim>C<my $var = 1; say $var;></Pod Verbatim><br/> 0222 <Pod Paragraph>Perl 6 homepage </Pod Paragraph><Pod Link>L<https://perl6.org></Pod Link><Pod Paragraph> </Pod Paragraph><Pod Link>L<Perl 6 homepage</Pod Link><Pod Operator>|</Pod Operator><Pod Link>https://perl6.org></Pod Link><br/> 0223 <Pod Paragraph>Comments </Pod Paragraph><Pod Link>L<#Comments></Pod Link><Pod Paragraph> </Pod Paragraph><Pod Link>L<Comments</Pod Link><Pod Operator>|</Pod Operator><Pod Link>#Comments></Pod Link><br/> 0224 <Pod Paragraph>Perl 6 is awesome </Pod Paragraph><Pod Comment>Z<Of course it is!></Pod Comment><br/> 0225 <Pod Paragraph>Perl 6 is multi-paradigmatic </Pod Paragraph><Pod Note>N<Supporting Procedural, Object Oriented, and Functional programming></Pod Note><br/> 0226 <Pod Paragraph>Enter your name </Pod Paragraph><Pod Verbatim>K<John Doe></Pod Verbatim><Pod Paragraph> </Pod Paragraph><Pod Unicode>E<0xBB></Pod Unicode><Pod Paragraph> characters.</Pod Paragraph><br/> 0227 <Pod Paragraph></Pod Paragraph><br/> 0228 <Pod Paragraph>A </Pod Paragraph><Pod Indexed Terms>X<</Pod Indexed Terms><Pod Link>hash</Pod Link><Pod Operator>|</Pod Operator><Pod Link>hashes</Pod Link><Pod Operator>,</Pod Operator><Pod Link> definition of</Pod Link><Pod Operator>;</Pod Operator><Pod Link> associative arrays</Pod Link><Pod Indexed Terms>></Pod Indexed Terms><br/> 0229 <Pod Paragraph></Pod Paragraph><br/> 0230 <Pod>=</Pod><Pod Typename>DISCLAIMER</Pod Typename><br/> 0231 <Pod Link>P<http://www.MegaGigaTeraPetaCorp.com/std/disclaimer.txt></Pod Link><br/> 0232 <Pod Paragraph></Pod Paragraph><br/> 0233 <Pod Paragraph>A </Pod Paragraph><Pod Indexed Terms>X<</Pod Indexed Terms><Pod Link>hash</Pod Link><Pod Operator>|</Pod Operator><Pod Link>hashes</Pod Link><Pod Operator>,</Pod Operator><Pod Link> definition of</Pod Link><Pod Operator>;</Pod Operator><Pod Link> associative arrays</Pod Link><Pod Indexed Terms>></Pod Indexed Terms><br/> 0234 <Pod Paragraph>is an unordered collection of scalar values indexed by their</Pod Paragraph><br/> 0235 <Pod Paragraph>associated string key.</Pod Paragraph><br/> 0236 <Pod Paragraph></Pod Paragraph><br/> 0237 <Pod Paragraph> my @names = <Foo Bar Baz>;</Pod Paragraph><br/> 0238 <Pod Paragraph> my @upper-case-names = @names.map: { .uc } # OUTPUT: [FOO BAR BAZ]</Pod Paragraph><br/> 0239 <Pod Paragraph></Pod Paragraph><br/> 0240 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/> 0241 <Normal Text></Normal Text><br/> 0242 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>caption</Pod Key><Pod Operator><</Pod Operator><Pod Config>My Tasks</Pod Config><Pod Operator>></Pod Operator><br/> 0243 <Pod Paragraph>mow lawn</Pod Paragraph><br/> 0244 <Pod Paragraph>take out trash</Pod Paragraph><br/> 0245 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><br/> 0246 <Normal Text></Normal Text><br/> 0247 <Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><Normal Text> </Normal Text><Pod Operator>:</Pod Operator><Pod Key>config</Pod Key><Pod Operator>{</Pod Operator><Pod Config>caption </Pod Config><Pod Operator>=></Pod Operator><Pod Config> </Pod Config><String>"My Tasks</String><String Delimiter>"</String Delimiter><Pod Operator>}</Pod Operator><br/> 0248 <Pod Paragraph>mow lawn</Pod Paragraph><br/> 0249 <Pod Paragraph>take out trash</Pod Paragraph><br/> 0250 <Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><br/> 0251 <Normal Text></Normal Text><br/> 0252 <Normal Text></Normal Text><br/> 0253 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String Special Character>\c999</String Special Character><String> </String><String Special Character>\c999999</String Special Character><Error>9</Error><String>99 </String><String Special Character>\c[LATIN CAPITAL LETTER A</String Special Character><Separator Symbol>,</Separator Symbol><String Special Character> LATIN CAPITAL LETTER B]</String Special Character><String> </String><String Special Character>\c77</String Special Character><String>s </String><String Special Character>\c[77</String Special Character><Separator Symbol>,</Separator Symbol><String Special Character>22]</String Special Character><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0254 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String Special Character>\x0</String Special Character><String> </String><String Special Character>\x00</String Special Character><String> </String><String Special Character>\x[0]</String Special Character><String> </String><String Special Character>\x[00]</String Special Character><String> </String><String Special Character>\x[f]</String Special Character><String> </String><String Special Character>\xaaa</String Special Character><String> </String><String Special Character>\xfffff</String Special Character><Error>f</Error><String>f </String><String Special Character>\xff</String Special Character><String>h </String><String Special Character>\x[ffff]</String Special Character><String> </String><String Special Character>\x[fffff</String Special Character><Error>ff</Error><String Special Character>]</String Special Character><String> </String><String Special Character>\x[42</String Special Character><Separator Symbol>,</Separator Symbol><String Special Character>42]</String Special Character><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0255 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String Special Character>\o0</String Special Character><String> </String><String Special Character>\o00</String Special Character><String> </String><String Special Character>\o[0]</String Special Character><String> </String><String Special Character>\o[00]</String Special Character><String> </String><String Special Character>\o[7]</String Special Character><String> </String><String Special Character>\o333</String Special Character><String> </String><String Special Character>\o777777</String Special Character><Error>7</Error><String>7 </String><String Special Character>\o77</String Special Character><String>h </String><String Special Character>\o[333]</String Special Character><String> </String><String Special Character>\o[777777</String Special Character><Error>77</Error><String Special Character>]</String Special Character><String> </String><String Special Character>\o[42</String Special Character><Separator Symbol>,</Separator Symbol><String Special Character>42]</String Special Character><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0256 <Normal Text></Normal Text><br/> 0257 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><String Delimiter>[</String Delimiter><String>A literal string</String><String Delimiter>]</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0258 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>「</String Delimiter><String>More plainly.</String><String Delimiter>」</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0259 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><String Delimiter>^</String Delimiter><String>Almost any non-word character can be a delimiter!</String><String Delimiter>^</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0260 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><String Delimiter>「「</String Delimiter><String>Delimiters can be repeated/nested if they are adjacent.</String><String Delimiter>」」</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0261 <Normal Text></Normal Text><br/> 0262 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><String Delimiter>(</String Delimiter><String>this is fine, because of space after Q</String><String Delimiter>)</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0263 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><String Delimiter>'</String Delimiter><String>and so is this</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0264 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><String Delimiter><</String Delimiter><String>Make sure you </String><String Delimiter><</String Delimiter><String>match</String><String Delimiter>></String Delimiter><String> opening and closing delimiters</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0265 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><String Delimiter>{</String Delimiter><String>This is still a closing curly brace → \</String><String Delimiter>}</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0266 <Normal Text></Normal Text><br/> 0267 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><String Delimiter>;</String Delimiter><String>yes, this is fine</String><String Delimiter>;</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0268 <Function>say</Function><Normal Text> </Normal Text><Data Type>Q</Data Type><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String>this is a function</String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0269 <Normal Text></Normal Text><br/> 0270 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Very plain</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0271 <Function>say</Function><Normal Text> </Normal Text><Operator>q</Operator><String Delimiter>[</String Delimiter><String>This back\slash stays</String><String Delimiter>]</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0272 <Function>say</Function><Normal Text> </Normal Text><Operator>q</Operator><String Delimiter>[</String Delimiter><String>This back</String><String Special Character>\\</String Special Character><String>slash stays</String><String Delimiter>]</String Delimiter><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># Identical output</Comment><br/> 0273 <Function>say</Function><Normal Text> </Normal Text><Operator>q</Operator><String Delimiter>{</String Delimiter><String>This is not a closing curly brace → </String><String Special Character>\}</String Special Character><String>, but this is → </String><String Delimiter>}</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0274 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><Operator>:q</Operator><String> </String><String Delimiter>$</String Delimiter><String>There are no backslashes here, only lots of </String><String Special Character>\$\$\$</String Special Character><String>>!</String><String Delimiter>$</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0275 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>(Just kidding. There</String><String Special Character>\'</String Special Character><String>s no money in that string)</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0276 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>No $interpolation {here}!</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0277 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><Operator>:q</Operator><String Delimiter>!</String Delimiter><String>Just a literal "\n" here</String><String Delimiter>!</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0278 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><Operator>:q</Operator><String Delimiter>[</String Delimiter><String>a</String><String Special Character>\[</String Special Character><String Delimiter>]</String Delimiter><br/> 0279 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><String Delimiter>[</String Delimiter><String>A literal string</String><String Delimiter>]</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0280 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>「</String Delimiter><String>More plainly.</String><String Delimiter>」</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0281 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><String Delimiter>^</String Delimiter><String>Almost any non-word character can be a delimiter!</String><String Delimiter>^</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0282 <Function>say</Function><Normal Text> </Normal Text><String>Q </String><String Delimiter>「「</String Delimiter><String>Delimiters can be repeated/nested if they are adjacent.</String><String Delimiter>」」</String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0283 <Normal Text></Normal Text><br/> 0284 <Function>say</Function><Normal Text> </Normal Text><Operator>qq</Operator><String Delimiter>[</String Delimiter><String>My favorite color is </String><String (interpolated)>{</String (interpolated)><Variable>$n</Variable><Operator>+</Operator><Decimal>2</Decimal><String (interpolated)>}</String (interpolated)><String>!</String><String Delimiter>]</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0285 <Function>say</Function><Normal Text> </Normal Text><Operator>qq</Operator><String Delimiter>{</String Delimiter><String>My favorite color</String><String Special Character>\-</String Special Character><String> is </String><String Delimiter>{</String Delimiter><Variable>$n</Variable><String>+2</String><String Delimiter>}</String Delimiter><String>!</String><String Delimiter>}</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0286 <Function>say</Function><Normal Text> </Normal Text><String>Q</String><Operator>:qq</Operator><String Delimiter>{</String Delimiter><String>My favorite color</String><String Special Character>\-</String Special Character><String> is </String><String Delimiter>{</String Delimiter><Variable>$n</Variable><String>+2</String><String Delimiter>}</String Delimiter><String>!</String><String Delimiter>}</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0287 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>My </String><Variable>$color</Variable><Function>[</Function><Decimal>0</Decimal><Function>]</Function><String>.uc(</String><br/> 0288 <String>) </String><Variable>$n</Variable><String>+</String><Variable>$n</Variable><String>.^name favorite color </String><Operator>\q</Operator><String Delimiter>[</String Delimiter><String>1is</String><String Delimiter>]</String Delimiter><String> </String><String (interpolated)>{</String (interpolated)><Variable>$n</Variable><Operator>+</Operator><Decimal>2</Decimal><String (interpolated)>}</String (interpolated)><String>!abc</String><Function>&uc(</Function><String Delimiter>'</String Delimiter><String>a</String><String Delimiter>'</String Delimiter><Function>)</Function><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0289 <Normal Text></Normal Text><br/> 0290 <Function>say</Function><Normal Text> </Normal Text><Operator>qqww</Operator><String Delimiter>|</String Delimiter><String>a</String><String Delimiter>|</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0291 <Function>say</Function><Normal Text> </Normal Text><Operator>qq:w:w</Operator><String Delimiter>|</String Delimiter><String>a</String><String Delimiter>|</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0292 <Function>say</Function><Normal Text> </Normal Text><Operator>q:a:v</Operator><String Delimiter>|</String Delimiter><String>a</String><String Delimiter>|</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0293 <Normal Text></Normal Text><br/> 0294 <Function>say</Function><Symbol>(</Symbol><Operator>qq:to</Operator><String Delimiter>/TERM INATOR/</String Delimiter><String>, 1+1);</String><br/> 0295 <String> blah blah</String><br/> 0296 <String> </String><String Delimiter>TERM INATOR</String Delimiter><br/> 0297 <Normal Text></Normal Text><br/> 0298 <Normal Text></Normal Text><br/> 0299 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$don't-do-that</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/> 0300 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$piece_of_π</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Float>3.14</Float><Separator Symbol>;</Separator Symbol><br/> 0301 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$駱駝道</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/> 0302 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$lexical</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/> 0303 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>dynamic1</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Separator Symbol>;</Separator Symbol><br/> 0304 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>dynamic2</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>100</Decimal><Separator Symbol>;</Separator Symbol><br/> 0305 <Normal Text></Normal Text><br/> 0306 <Declare Routine>sub</Declare Routine><Normal Text> say-all</Normal Text><Symbol>()</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0307 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><Variable>$lexical</Variable><String>, </String><Variable>$</Variable><Twigil>*</Twigil><Variable>dynamic1</Variable><String>, </String><Variable>$</Variable><Twigil>*</Twigil><Variable>dynamic2</Variable><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0308 <Symbol>}</Symbol><br/> 0309 <Normal Text></Normal Text><br/> 0310 <Normal Text>say-all</Normal Text><Symbol>()</Symbol><Separator Symbol>;</Separator Symbol><br/> 0311 <Normal Text></Normal Text><br/> 0312 <Symbol>{</Symbol><br/> 0313 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$lexical</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0314 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>dynamic1</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>11</Decimal><Separator Symbol>;</Separator Symbol><br/> 0315 <Normal Text> </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>dynamic2</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>101</Decimal><Separator Symbol>;</Separator Symbol><br/> 0316 <Symbol>}</Symbol><br/> 0317 <Normal Text></Normal Text><br/> 0318 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$square</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>9</Decimal><Normal Text> </Normal Text><Operator>**</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0319 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@array</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># Array variable with three elements</Comment><br/> 0320 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>%hash</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Data Type>London</Data Type><Normal Text> </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>UK</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Data Type>Berlin</Data Type><Normal Text> </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Germany</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0321 <Normal Text></Normal Text><br/> 0322 <Keyword>class</Keyword><Normal Text> </Normal Text><Data Type>FailHash</Data Type><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Data Type>Hash</Data Type><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0323 <Normal Text> </Normal Text><Variable Storage>has</Variable Storage><Normal Text> </Normal Text><Data Type>Bool</Data Type><Normal Text> </Normal Text><Variable>$</Variable><Twigil>!</Twigil><Variable>final</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Keyword Value>False</Keyword Value><Separator Symbol>;</Separator Symbol><br/> 0324 <Normal Text> </Normal Text><Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>method</Declare Routine><Normal Text> </Normal Text><Data Type>AT-KEY</Data Type><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text> </Normal Text><Separator Symbol>::?</Separator Symbol><Data Type>CLASS</Data Type><Separator Symbol>:</Separator Symbol><Data Type>D</Data Type><Separator Symbol>:</Separator Symbol><Normal Text> </Normal Text><Data Type>Str</Data Type><Separator Symbol>:</Separator Symbol><Data Type>D</Data Type><Normal Text> </Normal Text><Variable>\key</Variable><Normal Text> </Normal Text><Symbol>){</Symbol><br/> 0325 <Normal Text> </Normal Text><Control Flow>fail</Control Flow><Normal Text> </Normal Text><Operator>X</Operator><Separator Symbol>::</Separator Symbol><Data Type>OutOfRange</Data Type><Member Operator>.</Member Operator><Normal Text>new</Normal Text><Symbol>(</Symbol><Separator Symbol>:</Separator Symbol><Attribute>what</Attribute><Symbol>(</Symbol><String Delimiter>"</String Delimiter><String>Hash key</String><String Delimiter>"</String Delimiter><Symbol>)</Symbol><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Attribute>got</Attribute><Symbol>(</Symbol><Normal Text>key</Normal Text><Symbol>)</Symbol><Separator Symbol>,</Separator Symbol><br/> 0326 <Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Attribute>range</Attribute><Symbol>(</Symbol><Keyword Value>self</Keyword Value><Member Operator>.</Member Operator><Normal Text>keys</Normal Text><Symbol>))</Symbol><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Variable>$</Variable><Twigil>!</Twigil><Variable>final</Variable><Normal Text> </Normal Text><Operator>&& !</Operator><Keyword Value>self</Keyword Value><Member Operator>.</Member Operator><Data Type>EXISTS-KEY</Data Type><Symbol>(</Symbol><Normal Text>key</Normal Text><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0327 <Normal Text> callsame</Normal Text><br/> 0328 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0329 <Normal Text></Normal Text><br/> 0330 <Normal Text> </Normal Text><Declare Routine>method</Declare Routine><Normal Text> finalize</Normal Text><Symbol>()</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0331 <Normal Text> </Normal Text><Variable>$</Variable><Twigil>!</Twigil><Variable>final</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><br/> 0332 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0333 <Symbol>}</Symbol><br/> 0334 <Normal Text></Normal Text><br/> 0335 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>%h</Variable><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Data Type>FailHash</Data Type><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> oranges </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>round</String><String Delimiter>"</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> bananas </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>bendy</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0336 <Normal Text></Normal Text><br/> 0337 <Function>say</Function><Normal Text> </Normal Text><Variable>%h</Variable><String Delimiter><</String Delimiter><String>oranges</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0338 <Variable>%h</Variable><Member Operator>.</Member Operator><Normal Text>finalize</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0339 <Function>say</Function><Normal Text> </Normal Text><Variable>%h</Variable><String Delimiter><</String Delimiter><String>cherry</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0340 <Control Flow>CATCH</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Control Flow>default</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> put </Normal Text><Member Operator>.^</Member Operator><Normal Text>name</Normal Text><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>: </String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>Str</Data Type><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0341 <Normal Text></Normal Text><br/> 0342 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text> </Normal Text><Variable>@foo</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$bar</Variable><Normal Text> </Normal Text><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0343 <Variable>@foo</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$bar</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>42</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>str</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0344 <Normal Text></Normal Text><br/> 0345 <Function>say</Function><Normal Text> </Normal Text><Variable Storage>anon</Variable Storage><Normal Text> </Normal Text><Keyword>class</Keyword><Normal Text> þ </Normal Text><Symbol>{}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0346 <Function>say</Function><Normal Text> </Normal Text><Variable Storage>anon</Variable Storage><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> þ </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Decimal>42</Decimal><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0347 <Normal Text></Normal Text><br/> 0348 <Declare Routine>sub</Declare Routine><Normal Text> a </Normal Text><Symbol>{</Symbol><br/> 0349 <Normal Text> </Normal Text><Variable Storage>state</Variable Storage><Normal Text> </Normal Text><Variable>@x</Variable><Separator Symbol>;</Separator Symbol><br/> 0350 <Normal Text> </Normal Text><Variable Storage>state</Variable Storage><Normal Text> </Normal Text><Variable>$l</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>A</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0351 <Normal Text> </Normal Text><Variable>@x</Variable><Member Operator>.</Member Operator><Function>push</Function><Symbol>(</Symbol><Variable>$l</Variable><Operator>++</Operator><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0352 <Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0353 <Normal Text></Normal Text><br/> 0354 <Function>say</Function><Normal Text> a </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>..</Operator><Decimal>6</Decimal><Separator Symbol>;</Separator Symbol><br/> 0355 <Normal Text></Normal Text><br/> 0356 <Declare Routine>sub</Declare Routine><Normal Text> foo</Normal Text><Symbol>(</Symbol><Variable>$x</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0357 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$v</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>@</Variable><Separator Symbol>;</Separator Symbol><br/> 0358 <Normal Text> </Normal Text><Variable>$v</Variable><Symbol>[</Symbol><Variable>$x</Variable><Symbol>]</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$x</Variable><Separator Symbol>;</Separator Symbol><br/> 0359 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Variable>$v</Variable><Separator Symbol>;</Separator Symbol><br/> 0360 <Symbol>}</Symbol><br/> 0361 <Normal Text></Normal Text><br/> 0362 <Normal Text>foo</Normal Text><Symbol>(</Symbol><Variable>$_</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Operator>^</Operator><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0363 <Normal Text></Normal Text><br/> 0364 <Keyword>use</Keyword><Normal Text> </Normal Text><Data Type>MONKEY-TYPING</Data Type><Separator Symbol>;</Separator Symbol><br/> 0365 <Variable Storage>augment</Variable Storage><Normal Text> </Normal Text><Keyword>class</Keyword><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0366 <Normal Text> </Normal Text><Declare Routine>method</Declare Routine><Normal Text> is-answer </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Keyword Value>self</Keyword Value><Normal Text> </Normal Text><Operator>==</Operator><Normal Text> </Normal Text><Decimal>42</Decimal><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0367 <Symbol>}</Symbol><br/> 0368 <Function>say</Function><Normal Text> </Normal Text><Decimal>42</Decimal><Member Operator>.</Member Operator><Normal Text>is-answer</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0369 <Normal Text></Normal Text><br/> 0370 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$in</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>0</Decimal><Separator Symbol>;</Separator Symbol><br/> 0371 <Normal Text></Normal Text><br/> 0372 <Declare Routine>sub</Declare Routine><Normal Text> f</Normal Text><Symbol>(</Symbol><Variable>*@c</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0373 <Normal Text> </Normal Text><Symbol>(</Symbol><Variable Storage>temp</Variable Storage><Normal Text> </Normal Text><Variable>$in</Variable><Symbol>)</Symbol><Operator>++</Operator><Separator Symbol>;</Separator Symbol><br/> 0374 <Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String><f></String><String Special Character>\n</String Special Character><String Delimiter>"</String Delimiter><br/> 0375 <Normal Text> </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><Variable>@c</Variable><Hyper Operator>»</Hyper Operator><Member Operator>.</Member Operator><Normal Text>indent</Normal Text><Symbol>(</Symbol><Variable>$in</Variable><Symbol>)</Symbol><Member Operator>.</Member Operator><Normal Text>join</Normal Text><Symbol>(</Symbol><String Delimiter>"</String Delimiter><String Special Character>\n</String Special Character><String Delimiter>"</String Delimiter><Symbol>)</Symbol><br/> 0376 <Normal Text> </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><Symbol>(</Symbol><Operator>+</Operator><Variable>@c</Variable><Normal Text> </Normal Text><Operator>??</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String Special Character>\n</String Special Character><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>!!</Operator><Normal Text> </Normal Text><String Delimiter>""</String Delimiter><Symbol>)</Symbol><br/> 0377 <Normal Text> </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String></f></String><String Delimiter>'</String Delimiter><br/> 0378 <Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0379 <Normal Text></Normal Text><br/> 0380 <Control Flow>for</Control Flow><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>ab:c d$e fgh ij*</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0381 <Normal Text> </Normal Text><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Pattern Delimiter>m/</Pattern Delimiter><Pattern Meta Character><</Pattern Meta Character><Pattern Quantifier>-</Pattern Quantifier><Pattern Unicode Property>alpha</Pattern Unicode Property><Pattern Meta Character>></Pattern Meta Character><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0382 <Symbol>}</Symbol><br/> 0383 <Normal Text></Normal Text><br/> 0384 <Control Flow>for</Control Flow><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>.</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0385 <Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>Str</Data Type><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Operator>!</Operator><Member Operator>.</Member Operator><Data Type>IO</Data Type><Member Operator>.</Member Operator><Normal Text>d</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0386 <Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>IO</Data Type><Member Operator>.</Member Operator><Normal Text>dir</Normal Text><Symbol>()</Symbol><Hyper Operator>»</Hyper Operator><Member Operator>.</Member Operator><Variable>&</Variable><Twigil>?</Twigil><Variable>BLOCK</Variable><Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>IO</Data Type><Member Operator>.</Member Operator><Normal Text>d </Normal Text><Comment># lets recurse a little!</Comment><br/> 0387 <Symbol>}</Symbol><br/> 0388 <Normal Text></Normal Text><br/> 0389 <Keyword>use</Keyword><Normal Text> </Normal Text><Data Type>Dog</Data Type><Separator Symbol>:</Separator Symbol><Attribute>auth</Attribute><String Delimiter><</String Delimiter><String>Somebody</String><String Delimiter>></String Delimiter><Separator Symbol>:</Separator Symbol><Attribute>ver</Attribute><String Delimiter><</String Delimiter><String>2.0</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0390 <Normal Text></Normal Text><br/> 0391 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>+</String><String Delimiter>></String Delimiter><br/> 0392 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>*</String><String Delimiter>></String Delimiter><br/> 0393 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter>«</String Delimiter><String><=</String><String Delimiter>»</String Delimiter><br/> 0394 <Normal Text></Normal Text><br/> 0395 <Normal Text>postfix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>²</String><String Delimiter>></String Delimiter><br/> 0396 <Data Type>WOW</Data Type><Separator Symbol>:</Separator Symbol><Data Type>That'sAwesome</Data Type><br/> 0397 <Data Type>WOW</Data Type><Separator Symbol>:</Separator Symbol><Data Type>That's</Data Type><String Delimiter><<</String Delimiter><String>🆒</String><String Delimiter>>></String Delimiter><br/> 0398 <Normal Text>party</Normal Text><Separator Symbol>:</Separator Symbol><Attribute>sweet</Attribute><String Delimiter><</String Delimiter><String>16</String><String Delimiter>></String Delimiter><br/> 0399 <Normal Text></Normal Text><br/> 0400 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>+</String><String Delimiter>></String Delimiter><br/> 0401 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><<</String Delimiter><String>+</String><String Delimiter>>></String Delimiter><br/> 0402 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter>«</String Delimiter><String>+</String><String Delimiter>»</String Delimiter><br/> 0403 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><Symbol>[</Symbol><String Delimiter>'</String Delimiter><String>+</String><String Delimiter>'</String Delimiter><Symbol>]</Symbol><br/> 0404 <Normal Text>infix</Normal Text><Separator Symbol>:</Separator Symbol><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String>+</String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><br/> 0405 <Normal Text></Normal Text><br/> 0406 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Separator Symbol>:</Separator Symbol><Attribute>b</Attribute><String Delimiter><</String Delimiter><String>c</String><String Delimiter>></String Delimiter><Separator Symbol>:</Separator Symbol><Attribute>d</Attribute><String Delimiter><</String Delimiter><String>e</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>100</Decimal><Separator Symbol>;</Separator Symbol><br/> 0407 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Separator Symbol>:</Separator Symbol><Attribute>d</Attribute><String Delimiter><</String Delimiter><String>e</String><String Delimiter>></String Delimiter><Separator Symbol>:</Separator Symbol><Attribute>b</Attribute><String Delimiter><</String Delimiter><String>c</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>200</Decimal><Separator Symbol>;</Separator Symbol><br/> 0408 <Function>say</Function><Normal Text> </Normal Text><Variable>$a</Variable><Separator Symbol>:</Separator Symbol><Attribute>b</Attribute><String Delimiter><</String Delimiter><String>c</String><String Delimiter>></String Delimiter><Separator Symbol>:</Separator Symbol><Attribute>d</Attribute><String Delimiter><</String Delimiter><String>e</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0409 <Normal Text></Normal Text><br/> 0410 <Keyword>use</Keyword><Normal Text> </Normal Text><Data Type>Test</Data Type><Separator Symbol>;</Separator Symbol><Normal Text> plan </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Variable Storage>constant</Variable Storage><Normal Text> </Normal Text><Variable>&term</Variable><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>👍</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>&ok</Variable><Member Operator>.</Member Operator><Normal Text>assuming</Normal Text><Symbol>(</Symbol><Keyword Value>True</Keyword Value><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0411 <Normal Text>👍</Normal Text><br/> 0412 <Normal Text></Normal Text><br/> 0413 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Keyword>do</Keyword><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Decimal>42</Decimal><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0414 <Normal Text></Normal Text><br/> 0415 <Function>say</Function><Normal Text> </Normal Text><Decimal>1000000</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>1_000_000</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>10_00000</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>100_00_00</Decimal><Separator Symbol>;</Separator Symbol><br/> 0416 <Function>say</Function><Normal Text> </Normal Text><Operator>-</Operator><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>12345</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Hex>0xBEEF</Hex><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Octal>0o755</Octal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Decimal>3</Decimal><String Delimiter><</String Delimiter><Decimal>1201</Decimal><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0417 <Function>say</Function><Normal Text> </Normal Text><Float>1.0</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Float>3.14159</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Operator>-</Operator><Float>2.5</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Decimal>3</Decimal><String Delimiter><</String Delimiter><Float>21.0012</Float><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0418 <Function>say</Function><Normal Text> </Normal Text><Float>1e0</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Float>6.022e23</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Float>1e-9</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Operator>-</Operator><Float>2e48</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Float>2e2</Float><Number Suffix>i</Number Suffix><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Float>.42</Float><Separator Symbol>;</Separator Symbol><br/> 0419 <Function>say</Function><Normal Text> </Normal Text><Decimal>2</Decimal><Member Operator>.</Member Operator><Normal Text>e2</Normal Text><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Float>.2</Float><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Octal>0o3</Octal><Error>9</Error><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Hex>0xfF3</Hex><Error>u</Error><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Octal>0o</Octal><Error>i</Error><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Hex>0x</Hex><Error>i</Error><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Decimal>3</Decimal><String Delimiter><</String Delimiter><Error>></Error><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Decimal>23</Decimal><String Delimiter><</String Delimiter><Decimal>gg</Decimal><Error> </Error><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># error</Comment><br/> 0420 <Normal Text></Normal Text><br/> 0421 <Normal Text></Normal Text><br/> 0422 <Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$size</Variable><Normal Text> </Normal Text><Hyper Operator>«</Hyper Operator><Symbol>[</Symbol><Normal Text>r</Normal Text><Operator>/</Operator><Symbol>]</Symbol><Hyper Operator>«</Hyper Operator><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>2</Decimal><Operator>**</Operator><Decimal>60</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>50</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>40</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>30</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>20</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>10</Decimal><Symbol>)</Symbol><br/> 0423 <Normal Text> </Normal Text><Operator>Z</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>EB PB TB GB MB KB</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Symbol>[</Symbol><Variable>\v</Variable><Separator Symbol>,</Separator Symbol><Variable>\suffix</Variable><Symbol>]</Symbol><br/> 0424 <Normal Text></Normal Text><br/> 0425 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>32</Decimal><Separator Symbol>;</Separator Symbol><br/> 0426 <Variable>$a</Variable><Normal Text> </Normal Text><Operator>+=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Separator Symbol>;</Separator Symbol><br/> 0427 <Variable>$a</Variable><Normal Text> </Normal Text><Operator>-=</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0428 <Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0429 <Variable>$a</Variable><Normal Text> </Normal Text><Operator>min=</Operator><Normal Text> </Normal Text><Decimal>5</Decimal><Separator Symbol>;</Separator Symbol><br/> 0430 <Variable>$s</Variable><Normal Text> </Normal Text><Operator>~=</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>b</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0431 <Normal Text></Normal Text><br/> 0432 <Declare Routine>sub</Declare Routine><Normal Text> infix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>space-concat</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$a</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$b</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String> </String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><Variable>$b</Variable><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0433 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>word1</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0434 <Variable>$a</Variable><Normal Text> space-concat</Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>word2</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0435 <Normal Text></Normal Text><br/> 0436 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Real</Data Type><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>/</Operator><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0437 <Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Float>3.14</Float><Separator Symbol>;</Separator Symbol><br/> 0438 <Variable>$a</Variable><Normal Text> </Normal Text><Member Operator>.=</Member Operator><Normal Text> round</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0439 <Normal Text></Normal Text><br/> 0440 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Separator Symbol>;</Separator Symbol><br/> 0441 <Function>say</Function><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>!=</Operator><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Separator Symbol>;</Separator Symbol><br/> 0442 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$i</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Separator Symbol>;</Separator Symbol><br/> 0443 <Normal Text></Normal Text><br/> 0444 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$release</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Data Type>Date</Data Type><Member Operator>.</Member Operator><Normal Text>new</Normal Text><Symbol>(</Symbol><Separator Symbol>:</Separator Symbol><Decimal>2015</Decimal><Normal Text>year</Normal Text><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Decimal>12</Decimal><Normal Text>month</Normal Text><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Decimal>24</Decimal><Normal Text>day</Normal Text><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0445 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$today</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Data Type>Date</Data Type><Member Operator>.</Member Operator><Normal Text>today</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0446 <Function>say</Function><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Variable>$release</Variable><Normal Text> </Normal Text><Operator>!before</Operator><Normal Text> </Normal Text><Variable>$today</Variable><Separator Symbol>;</Separator Symbol><br/> 0447 <Normal Text></Normal Text><br/> 0448 <Function>say</Function><Normal Text> </Normal Text><Decimal>4</Decimal><Normal Text> </Normal Text><Operator>R/</Operator><Normal Text> </Normal Text><Decimal>12</Decimal><Separator Symbol>;</Separator Symbol><br/> 0449 <Function>say</Function><Normal Text> </Normal Text><Symbol>[</Symbol><Operator>R/</Operator><Symbol>]</Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>4</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>16</Decimal><Separator Symbol>;</Separator Symbol><br/> 0450 <Function>say</Function><Normal Text> </Normal Text><Symbol>[</Symbol><Operator>RZ~</Operator><Symbol>]</Symbol><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>1 2 3</String><String Delimiter>></String Delimiter><Separator Symbol>,</Separator Symbol><String Delimiter><</String Delimiter><String>4 5 6</String><String Delimiter>></String Delimiter><br/> 0451 <Normal Text></Normal Text><br/> 0452 <Function>say</Function><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Symbol>)</Symbol><Normal Text> </Normal Text><Hyper Operator>»</Hyper Operator><Operator>*</Operator><Hyper Operator>»</Hyper Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/> 0453 <Function>say</Function><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>4</Decimal><Symbol>)</Symbol><Normal Text> </Normal Text><Hyper Operator>»</Hyper Operator><Operator>~</Operator><Hyper Operator>»</Hyper Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0454 <Function>say</Function><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Symbol>)</Symbol><Normal Text> </Normal Text><Hyper Operator>»</Hyper Operator><Operator>+</Operator><Hyper Operator>«</Hyper Operator><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>4</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>5</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>6</Decimal><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0455 <Function>say</Function><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>&sin</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>&cos</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>&sqrt</Variable><Symbol>)</Symbol><Hyper Operator>»</Hyper Operator><Member Operator>.</Member Operator><Symbol>(</Symbol><Float>0.5</Float><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0456 <Normal Text></Normal Text><br/> 0457 <Function>say</Function><Normal Text> </Normal Text><Variable>@a</Variable><Normal Text> </Normal Text><Hyper Operator>»</Hyper Operator><Operator>+=</Operator><Hyper Operator>»</Hyper Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/> 0458 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$a</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$b</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$c</Variable><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0459 <Symbol>((</Symbol><Variable>$a</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$b</Variable><Symbol>)</Symbol><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$c</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Hyper Operator>«</Hyper Operator><Operator>=</Operator><Hyper Operator>»</Hyper Operator><Normal Text> </Normal Text><Symbol>((</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>)</Symbol><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0460 <Normal Text></Normal Text><br/> 0461 <Function>say</Function><Normal Text> </Normal Text><Operator>!</Operator><Hyper Operator>«</Hyper Operator><Normal Text> </Normal Text><Variable>@wisdom</Variable><Separator Symbol>;</Separator Symbol><br/> 0462 <Variable>@a</Variable><Hyper Operator>»</Hyper Operator><Operator>++</Operator><Separator Symbol>;</Separator Symbol><br/> 0463 <Function>say</Function><Normal Text> </Normal Text><Operator>-</Operator><Hyper Operator>«</Hyper Operator><Normal Text> </Normal Text><Symbol>[[</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>]</Symbol><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Symbol>]</Symbol><Separator Symbol>;</Separator Symbol><br/> 0464 <Normal Text></Normal Text><br/> 0465 <Variable>@slops</Variable><Hyper Operator>»</Hyper Operator><Member Operator>.?</Member Operator><Normal Text>this-method-may-not-exist</Normal Text><Symbol>()</Symbol><Separator Symbol>;</Separator Symbol><br/> 0466 <Normal Text></Normal Text><br/> 0467 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>%outer</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Normal Text> </Normal Text><Operator>Z=></Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b c</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0468 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>%inner</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Operator>Z=></Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>x z</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0469 <Function>say</Function><Normal Text> </Normal Text><Variable>%outer</Variable><Normal Text> </Normal Text><Hyper Operator>«</Hyper Operator><Operator>~</Operator><Hyper Operator>»</Hyper Operator><Normal Text> </Normal Text><Variable>%inner</Variable><Separator Symbol>;</Separator Symbol><br/> 0470 <Normal Text></Normal Text><br/> 0471 <Function>say</Function><Normal Text> </Normal Text><Variable>$neighbors</Variable><Normal Text> </Normal Text><Hyper Operator>»>></Hyper Operator><Operator>+</Operator><Hyper Operator><<»</Hyper Operator><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$p</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>*</Variable><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0472 <Normal Text></Normal Text><br/> 0473 <Declare Routine>sub</Declare Routine><Normal Text> plus </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$</Variable><Twigil>^</Twigil><Variable>a</Variable><Normal Text> </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><Variable>$</Variable><Twigil>^</Twigil><Variable>b</Variable><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0474 <Function>say</Function><Normal Text> </Normal Text><Symbol>[[</Symbol><Variable>&plus</Variable><Symbol>]]</Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0475 <Normal Text></Normal Text><br/> 0476 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@n</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Symbol>[</Symbol><Normal Text>\</Normal Text><Operator>~</Operator><Symbol>]</Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>..</Operator><Variable>*</Variable><Separator Symbol>;</Separator Symbol><br/> 0477 <Function>say</Function><Normal Text> </Normal Text><Variable>@n</Variable><Symbol>[</Symbol><Operator>^</Operator><Decimal>5</Decimal><Symbol>]</Symbol><Separator Symbol>;</Separator Symbol><br/> 0478 <Normal Text></Normal Text><br/> 0479 <Variable>@l</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b c d</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>Z~</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>*</Variable><Separator Symbol>;</Separator Symbol><br/> 0480 <Function>say</Function><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Operator>S&</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Operator>S&</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0481 <Variable>@a</Variable><Normal Text> </Normal Text><Operator>X</Operator><Symbol>[</Symbol><Operator>+=</Operator><Symbol>]</Symbol><Normal Text> </Normal Text><Variable>@b</Variable><Separator Symbol>;</Separator Symbol><br/> 0482 <Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> postfix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>++</String><String Delimiter>></String Delimiter><Symbol>(</Symbol><Variable>$x</Variable><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>rw</Property><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>assoc</Property><String Delimiter><</String Delimiter><String>non</String><String Delimiter>></String Delimiter><br/> 0483 <Function>say</Function><Normal Text> </Normal Text><Variable>$filename</Variable><Operator>++</Operator><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>..</Operator><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0484 <Variable>$x</Variable><Normal Text> </Normal Text><Operator>%</Operator><Normal Text> </Normal Text><Variable>$y</Variable><Normal Text> </Normal Text><Operator>==</Operator><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Operator>-</Operator><Normal Text> floor</Normal Text><Symbol>(</Symbol><Variable>$x</Variable><Normal Text> </Normal Text><Operator>/</Operator><Normal Text> </Normal Text><Variable>$y</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>*</Operator><Normal Text> </Normal Text><Variable>$y</Variable><br/> 0485 <Function>say</Function><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a a b c a d</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>⊍</Operator><Normal Text> bag</Normal Text><Symbol>(</Symbol><String Delimiter><</String Delimiter><String>a a b c c</String><String Delimiter>></String Delimiter><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0486 <Function>say</Function><Normal Text> </Normal Text><Operator>-</Operator><Hyper Operator>«</Hyper Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>1 2 3</String><String Delimiter>></String Delimiter><br/> 0487 <Normal Text></Normal Text><br/> 0488 <Comment># This is wrong: creates a Hash of Mixes, not Mix:</Comment><br/> 0489 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Mix</Data Type><Normal Text> </Normal Text><Variable>%mix</Variable><Separator Symbol>;</Separator Symbol><br/> 0490 <Comment># Works with $ sigil:</Comment><br/> 0491 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Mix</Data Type><Normal Text> </Normal Text><Variable>$mix</Variable><Separator Symbol>;</Separator Symbol><br/> 0492 <Comment># Can be typed:</Comment><br/> 0493 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Mix</Data Type><Symbol>[</Symbol><Normal Text>Int</Normal Text><Symbol>]</Symbol><Normal Text> </Normal Text><Variable>$mix-of-ints</Variable><Separator Symbol>;</Separator Symbol><br/> 0494 <Normal Text></Normal Text><br/> 0495 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$x</Variable><Separator Symbol>;</Separator Symbol><br/> 0496 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>7</Decimal><Separator Symbol>;</Separator Symbol><br/> 0497 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>7</Decimal><Separator Symbol>;</Separator Symbol><br/> 0498 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Separator Symbol>:</Separator Symbol><Data Type>D</Data Type><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>7</Decimal><Separator Symbol>;</Separator Symbol><br/> 0499 <Normal Text>ndef</Normal Text><Symbol>)</Symbol><br/> 0500 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Keyword>where</Keyword><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$_</Variable><Normal Text> </Normal Text><Operator>></Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>7</Decimal><Separator Symbol>;</Separator Symbol><br/> 0501 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Keyword>where</Keyword><Normal Text> </Normal Text><Variable>*</Variable><Normal Text> </Normal Text><Operator>></Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>7</Decimal><Separator Symbol>;</Separator Symbol><br/> 0502 <Normal Text></Normal Text><br/> 0503 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>tr</Pattern Delimiter><Pattern Modifier>:d:c</Pattern Modifier><Pattern Delimiter>!</Pattern Delimiter><Pattern>dol</Pattern><Pattern Delimiter>!</Pattern Delimiter><String>wne</String><Pattern Delimiter>!</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0504 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>TR</Pattern Delimiter><Pattern Modifier>:c</Pattern Modifier><Pattern Delimiter>/</Pattern Delimiter><Pattern>dol</Pattern><Pattern Delimiter>/</Pattern Delimiter><String>wne</String><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0505 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>s!</Pattern Delimiter><Pattern>foo</Pattern><Pattern Delimiter>!</Pattern Delimiter><String>fox</String><Pattern Delimiter>!</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0506 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>foo</Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text>bar</Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>;</Pattern><br/> 0507 <Variable>$str</Variable><Pattern> </Pattern><Operator>~~</Operator><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Operator>//</Operator><Separator Symbol>;</Separator Symbol><br/> 0508 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>rx/</Pattern Delimiter><Pattern>foo</Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text>bar</Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>;</Pattern><br/> 0509 <Variable>$str</Variable><Pattern> </Pattern><Operator>~~</Operator><Pattern> Q </Pattern><Pattern Modifier>:regex</Pattern Modifier><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text>foo</Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>;</Pattern><br/> 0510 <Variable>$str</Variable><Pattern> </Pattern><Operator>~~</Operator><Pattern> s</Pattern><Symbol>{</Symbol><Normal Text>b</Normal Text><Symbol>(</Symbol><Member Operator>.</Member Operator><Symbol>)</Symbol><Normal Text>r</Normal Text><Symbol>}</Symbol><Pattern> = </Pattern><String Delimiter>"</String Delimiter><String> d</String><Variable>$0</Variable><String>n</String><String Delimiter>"</String Delimiter><Pattern>;</Pattern><br/> 0511 <Variable>$str</Variable><Pattern> </Pattern><Operator>~~</Operator><Pattern> regex</Pattern><Symbol>{</Symbol><Normal Text>fox</Normal Text><Symbol>}</Symbol><Pattern>; </Pattern><Comment># error</Comment><br/> 0512 <Variable>$str</Variable><Pattern> </Pattern><Operator>~~</Operator><Pattern> regex </Pattern><Symbol>{</Symbol><Normal Text>fox</Normal Text><Symbol>}</Symbol><Pattern>;</Pattern><br/> 0513 <Pattern>rx</Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Operator>^</Operator><Normal Text>ab </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>;</Pattern><br/> 0514 <Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Operator>^</Operator><Normal Text> ab </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>;</Pattern><br/> 0515 <Pattern>rx</Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Variable>\d</Variable><Normal Text> </Normal Text><Operator>**</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/> 0516 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>tr</Pattern Delimiter><Pattern Modifier>:d:c</Pattern Modifier><Pattern Delimiter>!</Pattern Delimiter><Pattern>dol</Pattern><Pattern Delimiter>!</Pattern Delimiter><String>wne</String><Pattern Delimiter>!</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0517 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>TR</Pattern Delimiter><Pattern Modifier>:c</Pattern Modifier><Pattern Delimiter>/</Pattern Delimiter><Pattern>dol</Pattern><Pattern Delimiter>/</Pattern Delimiter><String>wne</String><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0518 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>s!</Pattern Delimiter><Pattern>foo</Pattern><Pattern Delimiter>!</Pattern Delimiter><String>fox</String><Pattern Delimiter>!</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0519 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>rx/</Pattern Delimiter><Pattern>foo</Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0520 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Separator Symbol>:</Separator Symbol><Attribute>ds</Attribute><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text>fox</Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0521 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Symbol>{</Symbol><Pattern>fox</Pattern><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0522 <Variable Storage>my</Variable Storage><Normal Text> a </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>a</Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0523 <Pattern Delimiter>rx/</Pattern Delimiter><Pattern> </Pattern><Pattern Control Flow>^</Pattern Control Flow><Pattern>ab </Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0524 <Normal Text>a </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> </Pattern><Pattern Control Flow>^</Pattern Control Flow><Pattern> ab </Pattern><String Delimiter>'</String Delimiter><String>a</String><String Delimiter>'</String Delimiter><Pattern> </Pattern><String Delimiter>"</String Delimiter><Variable>$a</Variable><String Delimiter>"</String Delimiter><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Character Class>\n\n</Pattern Character Class><Pattern> </Pattern><Pattern Meta Character><:</Pattern Meta Character><Pattern Unicode Property>L </Pattern Unicode Property><Pattern Meta Character>:</Pattern Meta Character><Pattern Unicode Property>Script</Pattern Unicode Property><String Delimiter><</String Delimiter><String>Latin</String><String Delimiter>></String Delimiter><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Pattern Meta Character><:</Pattern Meta Character><Pattern Unicode Property>Block</Pattern Unicode Property><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String>Basic Latin</String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0525 <Operator>//</Operator><Separator Symbol>;</Separator Symbol><br/> 0526 <Normal Text> </Normal Text><Pattern Delimiter>rx</Pattern Delimiter><Pattern Modifier>:sigspace</Pattern Modifier><Pattern Delimiter>.</Pattern Delimiter><Pattern Character Class>\d</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Unicode Property> </Pattern Unicode Property><Pattern Meta Character>:</Pattern Meta Character><Pattern Unicode Property>Script </Pattern Unicode Property><Pattern Quantifier>+</Pattern Quantifier><Pattern Meta Character>:</Pattern Meta Character><Pattern Unicode Property>Block "Basic Latin" </Pattern Unicode Property><Pattern Quantifier>+</Pattern Quantifier><Pattern Unicode Property> </Pattern Unicode Property><Pattern Meta Character>:</Pattern Meta Character><Pattern Unicode Property>L</Pattern Unicode Property><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Comment>#plop</Comment><br/> 0527 <String Delimiter>'</String Delimiter><String>-</String><String Delimiter>'</String Delimiter><Pattern Delimiter>.</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0528 <Pattern Delimiter>rx/</Pattern Delimiter><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern> 2 </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Bracket>[</Pattern Bracket><Pattern Character Class>\d</Pattern Character Class><Pattern Character> a d</Pattern Character><Pattern Bracket>]</Pattern Bracket><Pattern Quantifier>+</Pattern Quantifier><Pattern Bracket>[</Pattern Bracket><Pattern Character Class>\x233</Pattern Character Class><Pattern Quantifier>..</Pattern Quantifier><Pattern Character>\] " </Pattern Character><Pattern Character Class>\c[dsds]</Pattern Character Class><Pattern Bracket>]</Pattern Bracket><Pattern Meta Character>></Pattern Meta Character><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0529 <Function>say</Function><Normal Text> </Normal Text><Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>m</Pattern Delimiter><Pattern Modifier>:g</Pattern Modifier><Pattern Delimiter>/</Pattern Delimiter><Symbol>[(</Symbol><Pattern Meta Character><</Pattern Meta Character><Pattern Bracket>[</Pattern Bracket><Pattern Character>ACGT</Pattern Character><Pattern Bracket>]</Pattern Bracket><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Pattern Quantifier>**:</Pattern Quantifier><Pattern> 3</Pattern><Symbol>)</Symbol><Pattern> </Pattern><Pattern Character Class>\s</Pattern Character Class><Pattern Quantifier>*</Pattern Quantifier><Symbol>]</Symbol><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Pattern Character Class>\s</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Symbol>(</Symbol><Pattern Meta Character><</Pattern Meta Character><Pattern Bracket>[</Pattern Bracket><Pattern Character>A</Pattern Character><Pattern Quantifier>..</Pattern Quantifier><Pattern Character>Z a a</Pattern Character><Pattern Quantifier>..</Pattern Quantifier><Pattern Character>z </Pattern Character><Pattern Character Class>\s</Pattern Character Class><Pattern Bracket>]</Pattern Bracket><Pattern Meta Character>></Pattern Meta Character><Pattern Quantifier>+</Pattern Quantifier><Symbol>)</Symbol><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0530 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>$333</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>m/</Pattern Delimiter><Pattern Control Flow>^^</Pattern Control Flow><Pattern> </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Control Flow>?</Pattern Control Flow><Symbol>[</Symbol><Pattern Control Flow>$</Pattern Control Flow><Symbol>]</Symbol><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Pattern Special Character>.</Pattern Special Character><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0531 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>/foo/o/bar/</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern Character>\/</Pattern Character><Pattern Special Character>.</Pattern Special Character><Pattern Quantifier>**!</Pattern Quantifier><Symbol>{</Symbol><Decimal>1</Decimal><Operator>..</Operator><Decimal>10</Decimal><Symbol>}</Symbol><Pattern Character>\/</Pattern Character><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0532 <Normal Text>rx</Normal Text><Symbol>(</Symbol><Normal Text>a</Normal Text><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0533 <Pattern Delimiter>rx (</Pattern Delimiter><Pattern>a</Pattern><Pattern Delimiter>)</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0534 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> </Normal Text><Symbol>{</Symbol><Pattern>fox</Pattern><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0535 <Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>s{</Pattern Delimiter><Pattern>b</Pattern><Symbol>(</Symbol><Pattern Special Character>.</Pattern Special Character><Symbol>)</Symbol><Pattern>r</Pattern><Pattern Delimiter>}</Pattern Delimiter><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String> d</String><Variable>$0</Variable><String>n</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0536 <Control Flow>if</Control Flow><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abc</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> </Pattern><Symbol>[</Symbol><Pattern>a</Pattern><Pattern Control Flow>||</Pattern Control Flow><Pattern>b</Pattern><Symbol>]</Symbol><Pattern> </Pattern><Symbol>(</Symbol><Pattern>c</Pattern><Symbol>)</Symbol><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0537 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Operator>~</Operator><Variable>$0</Variable><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «c»</Comment><br/> 0538 <Symbol>}</Symbol><br/> 0539 <Control Flow>if</Control Flow><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abc</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> </Pattern><Pattern Named Capture>$<myname></Pattern Named Capture><Pattern> = </Pattern><Symbol>[</Symbol><Pattern> </Pattern><Pattern Character Class>\w</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Symbol>]</Symbol><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0540 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Operator>~</Operator><Variable>$<myname></Variable><Normal Text> </Normal Text><Comment># OUTPUT: «abc»</Comment><br/> 0541 <Symbol>}</Symbol><br/> 0542 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abc</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> a </Pattern><Pattern Meta Character><(</Pattern Meta Character><Pattern> b </Pattern><Pattern Meta Character>)></Pattern Meta Character><Pattern> c</Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0543 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abc</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> </Pattern><Pattern Meta Character><(</Pattern Meta Character><Pattern>a </Pattern><Pattern Meta Character><(</Pattern Meta Character><Pattern> b </Pattern><Pattern Meta Character>)></Pattern Meta Character><Pattern> c</Pattern><Pattern Meta Character>)></Pattern Meta Character><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0544 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>abc</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>a</Pattern><Pattern Special Character>.</Pattern Special Character><Pattern> </Pattern><Pattern Control Flow>|</Pattern Control Flow><Pattern> ab </Pattern><Symbol>{</Symbol><Normal Text> </Normal Text><Function>print</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>win</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0545 <Normal Text></Normal Text><br/> 0546 <Operator>so</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>hello world</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>m</Pattern Delimiter><Pattern Modifier>:Perl5</Pattern Modifier><Operator>/</Operator><Pattern Internal Operator>^</Pattern Internal Operator><Pattern>hello </Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>world</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Operator>/</Operator><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «True»</Comment><br/> 0547 <Operator>so</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>hello world</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>m/</Pattern Delimiter><Pattern Control Flow>^</Pattern Control Flow><Pattern>hello </Pattern><Symbol>(</Symbol><Pattern>world</Pattern><Symbol>)</Symbol><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «False»</Comment><br/> 0548 <Operator>so</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>hello world</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>m/</Pattern Delimiter><Pattern Control Flow>^</Pattern Control Flow><Pattern> </Pattern><String Delimiter>'</String Delimiter><String>hello </String><String Delimiter>'</String Delimiter><Pattern> </Pattern><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String>world</String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «True»</Comment><br/> 0549 <Normal Text></Normal Text><br/> 0550 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Abra abra CADABRA</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>m</Pattern Delimiter><Pattern Modifier>:exhaustive</Pattern Modifier><Pattern Delimiter>/</Pattern Delimiter><Pattern Modifier>:i</Pattern Modifier><Pattern> a </Pattern><Pattern Character Class>\w</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> a</Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0551 <Normal Text></Normal Text><br/> 0552 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> ipv4-octet </Normal Text><Symbol>{</Symbol><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern> 1</Pattern><Operator>..</Operator><Pattern>3 </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Control Flow>?</Pattern Control Flow><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$/</Variable><Member Operator>.</Member Operator><Data Type>Int</Data Type><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>= 255 && $/.Int </String><String Delimiter>></String Delimiter><Operator>=</Operator><Normal Text> </Normal Text><Decimal>0</Decimal><Normal Text> </Normal Text><Symbol>}</Symbol><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Symbol>}</Symbol><br/> 0553 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> ipv4-octet </Normal Text><Symbol>{</Symbol><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern> 1</Pattern><Operator>..</Operator><Pattern>3 </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Control Flow>?</Pattern Control Flow><Symbol>{</Symbol><Normal Text> </Normal Text><Keyword Value>True</Keyword Value><Normal Text> </Normal Text><Symbol>}</Symbol><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Symbol>}</Symbol><br/> 0554 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abc</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Control Flow>?</Pattern Control Flow><Pattern Meta Character>before</Pattern Meta Character><Pattern> a</Pattern><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Pattern Control Flow>&&</Pattern Control Flow><Pattern> </Pattern><Pattern Special Character>.</Pattern Special Character><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0555 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abcdefg</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>rx{</Pattern Delimiter><Pattern> abc </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Bracket>[</Pattern Bracket><Pattern Character>email protected</Pattern Character><Pattern Bracket>]</Pattern Bracket><Pattern Unicode Property>ending_letters</Pattern Unicode Property><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Pattern Delimiter>}</Pattern Delimiter><Separator Symbol>;</Separator Symbol><br/> 0556 <Pattern Delimiter>s</Pattern Delimiter><Pattern Modifier>:g</Pattern Modifier><Pattern Delimiter>[</Pattern Delimiter><Pattern Character Class>\d</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Pattern Meta Character><</Pattern Meta Character><Pattern Control Flow>?</Pattern Control Flow><Pattern Meta Character>before</Pattern Meta Character><Pattern> </Pattern><Pattern Character Class>\s</Pattern Character Class><Pattern Quantifier>*</Pattern Quantifier><Pattern> </Pattern><Variable>@units</Variable><Pattern Meta Character>></Pattern Meta Character><Pattern Delimiter>]</Pattern Delimiter><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>5</Decimal><Normal Text> </Normal Text><Operator>*</Operator><Normal Text> </Normal Text><Variable>$/</Variable><Separator Symbol>;</Separator Symbol><br/> 0557 <Normal Text></Normal Text><br/> 0558 <Normal Text></Normal Text><br/> 0559 <Declare Routine>sub</Declare Routine><Normal Text> walk</Normal Text><Symbol>(</Symbol><Variable>\thing</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>*@keys</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>rw</Property><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0560 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$current</Variable><Normal Text> </Normal Text><Operator>:=</Operator><Normal Text> thing</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0561 <Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>@keys</Variable><Normal Text> </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$k</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0562 <Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Variable>$k</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0563 <Normal Text> </Normal Text><Variable>$current</Variable><Normal Text> </Normal Text><Operator>:=</Operator><Normal Text> </Normal Text><Variable>$current</Variable><Symbol>[</Symbol><Variable>$k</Variable><Symbol>]</Symbol><Separator Symbol>;</Separator Symbol><br/> 0564 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0565 <Normal Text> </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0566 <Normal Text> </Normal Text><Variable>$current</Variable><Normal Text> </Normal Text><Operator>:=</Operator><Normal Text> </Normal Text><Variable>$current</Variable><Symbol>{</Symbol><Variable>$k</Variable><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0567 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0568 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0569 <Normal Text> </Normal Text><Variable>$current</Variable><Separator Symbol>;</Separator Symbol><br/> 0570 <Symbol>}</Symbol><br/> 0571 <Normal Text></Normal Text><br/> 0572 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>%hash</Variable><Separator Symbol>;</Separator Symbol><br/> 0573 <Normal Text>walk</Normal Text><Symbol>(</Symbol><Variable>%hash</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>some</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>key</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>autovivified</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0574 <Normal Text></Normal Text><br/> 0575 <Function>say</Function><Normal Text> </Normal Text><Variable>%hash</Variable><Member Operator>.</Member Operator><Normal Text>perl</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0576 <Normal Text></Normal Text><br/> 0577 <Keyword>class</Keyword><Normal Text> </Normal Text><Operator>X</Operator><Separator Symbol>::</Separator Symbol><Data Type>WithoutLineNumber</Data Type><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Operator>X</Operator><Separator Symbol>::</Separator Symbol><Data Type>AdHoc</Data Type><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0578 <Normal Text> </Normal Text><Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>method</Declare Routine><Normal Text> gist</Normal Text><Symbol>(</Symbol><Operator>X</Operator><Separator Symbol>::</Separator Symbol><Data Type>WithoutLineNumber</Data Type><Separator Symbol>:</Separator Symbol><Data Type>D</Data Type><Separator Symbol>:</Separator Symbol><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0579 <Normal Text> </Normal Text><Variable>$</Variable><Twigil>.</Twigil><Variable>payload</Variable><br/> 0580 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0581 <Symbol>}</Symbol><br/> 0582 <Control Flow>die</Control Flow><Normal Text> </Normal Text><Operator>X</Operator><Separator Symbol>::</Separator Symbol><Data Type>WithoutLineNumber</Data Type><Member Operator>.</Member Operator><Normal Text>new</Normal Text><Symbol>(</Symbol><Normal Text>payload </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>message</String><String Delimiter>"</String Delimiter><Symbol>)</Symbol><br/> 0583 <Normal Text></Normal Text><br/> 0584 <Symbol>{</Symbol><Normal Text> </Normal Text><Control Flow>return</Control Flow><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Control Flow>CATCH</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Control Flow>default</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>ERR</Variable><Member Operator>.</Member Operator><Function>say</Function><Separator Symbol>:</Separator Symbol><Normal Text> </Normal Text><Member Operator>.^</Member Operator><Normal Text>name</Normal Text><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>: </String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>Str</Data Type><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0585 <Normal Text></Normal Text><br/> 0586 <Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> trait_mod</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>is</String><String Delimiter>></String Delimiter><Symbol>(</Symbol><Data Type>Routine</Data Type><Normal Text> </Normal Text><Variable>$r</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Variable>$export</Variable><Member Operator>!</Member Operator><Symbol>)</Symbol><br/> 0587 <Normal Text></Normal Text><br/> 0588 <Control Flow>react</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0589 <Normal Text> </Normal Text><Control Flow>whenever</Control Flow><Normal Text> signal</Normal Text><Symbol>(</Symbol><Data Type>SIGINT</Data Type><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0590 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>goodbye</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0591 <Normal Text> done</Normal Text><br/> 0592 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0593 <Symbol>}</Symbol><br/> 0594 <Normal Text></Normal Text><br/> 0595 <Normal Text>signal</Normal Text><Symbol>(</Symbol><Data Type>SIGINT</Data Type><Symbol>)</Symbol><Member Operator>.</Member Operator><Normal Text>tap</Normal Text><Separator Symbol>:</Separator Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>bye</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Control Flow>exit</Control Flow><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Control Flow>loop</Control Flow><Normal Text> </Normal Text><Symbol>{}</Symbol><br/> 0596 <Normal Text></Normal Text><br/> 0597 <Declare Routine>method</Declare Routine><Normal Text> base-repeating</Normal Text><Symbol>(</Symbol><Data Type>Rational</Data Type><Separator Symbol>:</Separator Symbol><Data Type>D</Data Type><Separator Symbol>:</Separator Symbol><Normal Text> </Normal Text><Data Type>Int</Data Type><Separator Symbol>:</Separator Symbol><Data Type>D</Data Type><Symbol>()</Symbol><Normal Text> </Normal Text><Variable>$base</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Symbol>)</Symbol><br/> 0598 <Normal Text></Normal Text><br/> 0599 <Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> prefix</Normal Text><Separator Symbol>:</Separator Symbol><String Delimiter><</String Delimiter><String>--</String><String Delimiter>></String Delimiter><Symbol>(</Symbol><Variable>$x</Variable><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>rw</Property><Symbol>)</Symbol><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>assoc</Property><String Delimiter><</String Delimiter><String>non</String><String Delimiter>></String Delimiter><br/> 0600 <Normal Text></Normal Text><br/> 0601 <Normal Text></Normal Text><br/> 0602 <Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Data Type>MAIN</Data Type><Symbol>(</Symbol><Data Type>Bool</Data Type><Normal Text> </Normal Text><Separator Symbol>:</Separator Symbol><Variable>$man</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0603 <Normal Text> run </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>EXECUTABLE</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>--doc</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$</Variable><Twigil>*</Twigil><Variable>PROGRAM</Variable><Separator Symbol>;</Separator Symbol><br/> 0604 <Symbol>}</Symbol><br/> 0605 <Normal Text></Normal Text><br/> 0606 <Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$file</Variable><Member Operator>.</Member Operator><Normal Text>lines </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$line</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0607 <Normal Text> </Normal Text><Control Flow>next</Control Flow><Normal Text> </Normal Text><Control Flow>unless</Control Flow><Normal Text> </Normal Text><Variable>$line</Variable><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># ignore any empty lines</Comment><br/> 0608 <Normal Text></Normal Text><br/> 0609 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$pairing</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$result</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$line</Variable><Member Operator>.</Member Operator><Normal Text>split</Normal Text><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String> | </String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0610 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$p1</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$p2</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$pairing</Variable><Member Operator>.</Member Operator><Normal Text>words</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0611 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$r1</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$r2</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$result</Variable><Member Operator>.</Member Operator><Normal Text>split</Normal Text><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String>:</String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0612 <Normal Text></Normal Text><br/> 0613 <Normal Text> </Normal Text><Variable>%sets</Variable><Symbol>{</Symbol><Variable>$p1</Variable><Symbol>}</Symbol><Normal Text> </Normal Text><Operator>+=</Operator><Normal Text> </Normal Text><Variable>$r1</Variable><Separator Symbol>;</Separator Symbol><br/> 0614 <Normal Text> </Normal Text><Variable>%sets</Variable><Symbol>{</Symbol><Variable>$p2</Variable><Symbol>}</Symbol><Normal Text> </Normal Text><Operator>+=</Operator><Normal Text> </Normal Text><Variable>$r2</Variable><Separator Symbol>;</Separator Symbol><br/> 0615 <Normal Text></Normal Text><br/> 0616 <Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Variable>$r1</Variable><Normal Text> </Normal Text><Operator>></Operator><Normal Text> </Normal Text><Variable>$r2</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0617 <Normal Text> </Normal Text><Variable>%matches</Variable><Symbol>{</Symbol><Variable>$p1</Variable><Symbol>}</Symbol><Operator>++</Operator><Separator Symbol>;</Separator Symbol><br/> 0618 <Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0619 <Normal Text> </Normal Text><Variable>%matches</Variable><Symbol>{</Symbol><Variable>$p2</Variable><Symbol>}</Symbol><Operator>++</Operator><Separator Symbol>;</Separator Symbol><br/> 0620 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0621 <Symbol>}</Symbol><br/> 0622 <Normal Text></Normal Text><br/> 0623 <Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>@sorted</Variable><Normal Text> </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$n</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0624 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$match-noun</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>%matches</Variable><Symbol>{</Symbol><Variable>$n</Variable><Symbol>}</Symbol><Normal Text> </Normal Text><Operator>==</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Operator>??</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>match</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>!!</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>matches</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0625 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$set-noun</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>%sets</Variable><Symbol>{</Symbol><Variable>$n</Variable><Symbol>}</Symbol><Normal Text> </Normal Text><Operator>==</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Operator>??</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>set</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>!!</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>sets</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0626 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><Variable>$n</Variable><String> has won %matches</String><String (interpolated)>{</String (interpolated)><Variable>$n</Variable><String (interpolated)>}</String (interpolated)><String> </String><Variable>$match-noun</Variable><String> and %sets</String><String (interpolated)>{</String (interpolated)><Variable>$n</Variable><String (interpolated)>}</String (interpolated)><String> </String><Variable>$set-noun</Variable><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0627 <Symbol>}</Symbol><br/> 0628 <Normal Text></Normal Text><br/> 0629 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Math: </String><String (interpolated)>{ </String (interpolated)><Decimal>1</Decimal><Normal Text> </Normal Text><Operator>+</Operator><String (interpolated)> </String (interpolated)><Decimal>2</Decimal><Normal Text> </Normal Text><String (interpolated)>}</String (interpolated)><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0630 <Normal Text></Normal Text><br/> 0631 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@people</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>Luke Matthew Mark</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0632 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>The synoptics are: </String><String (interpolated)>{</String (interpolated)><Variable>@people</Variable><String (interpolated)>}</String (interpolated)><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0633 <Normal Text></Normal Text><br/> 0634 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String (interpolated)>{</String (interpolated)><Variable>%sets</Variable><String (interpolated)>}</String (interpolated)><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0635 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>we have </String><Variable>@flavors</Variable><Function>[</Function><Decimal>0</Decimal><Function>]</Function><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0636 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>we have </String><Variable>@flavors</Variable><Function>[]</Function><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0637 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>we have </String><Variable>@flavors</Variable><Function>.sort()</Function><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0638 <Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>we have </String><Variable>@flavors</Variable><Function>.sort.join(</Function><String Delimiter>'</String Delimiter><String>, </String><String Delimiter>'</String Delimiter><Function>)</Function><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0639 <Normal Text></Normal Text><br/> 0640 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@valid-players</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$file</Variable><Member Operator>.</Member Operator><Normal Text>get</Normal Text><Member Operator>.</Member Operator><Normal Text>words</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0641 <Normal Text></Normal Text><br/> 0642 <Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$file</Variable><Member Operator>.</Member Operator><Normal Text>lines </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$line</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0643 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$pairing</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$result</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$line</Variable><Member Operator>.</Member Operator><Normal Text>split</Normal Text><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String> | </String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0644 <Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Symbol>(</Symbol><Variable>$p1</Variable><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>$p2</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$pairing</Variable><Member Operator>.</Member Operator><Normal Text>split</Normal Text><Symbol>(</Symbol><String Delimiter>'</String Delimiter><String> </String><String Delimiter>'</String Delimiter><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0645 <Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Variable>$p1</Variable><Normal Text> </Normal Text><Operator>∉</Operator><Normal Text> </Normal Text><Variable>@valid-players</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0646 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Warning: '</String><Variable>$p1'</Variable><String> is not on our list!</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0647 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0648 <Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Variable>$p2</Variable><Normal Text> </Normal Text><Operator>∉</Operator><Normal Text> </Normal Text><Variable>@valid-players</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0649 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Warning: '</String><Variable>$p2'</Variable><String> is not on our list!</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0650 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0651 <Symbol>}</Symbol><br/> 0652 <Normal Text></Normal Text><br/> 0653 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@array</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Symbol>[</Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>x</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>xx</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>xxx</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>o</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>oo</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>X</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Y</String><String Delimiter>'</String Delimiter><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Z</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>]</Symbol><Separator Symbol>;</Separator Symbol><br/> 0654 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@array</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String> x xx xxx o oo X Y Z </String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0655 <Normal Text></Normal Text><br/> 0656 <Declare Routine>sub</Declare Routine><Normal Text> plus </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$</Variable><Twigil>^</Twigil><Variable>a</Variable><Normal Text> </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><Variable>$</Variable><Twigil>^</Twigil><Variable>b</Variable><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0657 <Function>say</Function><Normal Text> </Normal Text><Symbol>[[</Symbol><Variable>&plus</Variable><Symbol>]]</Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0658 <Normal Text></Normal Text><br/> 0659 <Function>say</Function><Normal Text> </Normal Text><Symbol>[</Symbol><Operator>X~</Operator><Symbol>]</Symbol><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Symbol>)</Symbol><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0660 <Normal Text></Normal Text><br/> 0661 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@n</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Symbol>[</Symbol><Normal Text>\</Normal Text><Operator>~</Operator><Symbol>]</Symbol><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>..</Operator><Variable>*</Variable><Separator Symbol>;</Separator Symbol><br/> 0662 <Function>say</Function><Normal Text> </Normal Text><Variable>@n</Variable><Symbol>[</Symbol><Operator>^</Operator><Decimal>5</Decimal><Symbol>]</Symbol><Separator Symbol>;</Separator Symbol><br/> 0663 <Normal Text></Normal Text><br/> 0664 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@l</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b c d</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>Z~</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>:</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>xx</Operator><Normal Text> </Normal Text><Variable>*</Variable><Separator Symbol>;</Separator Symbol><br/> 0665 <Normal Text> </Normal Text><Variable>@l</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b c d</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>Z~</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Variable>*</Variable><Separator Symbol>;</Separator Symbol><br/> 0666 <Normal Text></Normal Text><br/> 0667 <Function>say</Function><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Operator>S&</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Operator>S&</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/> 0668 <Normal Text></Normal Text><br/> 0669 <Function>say</Function><Normal Text> </Normal Text><Variable>%color</Variable><Hyper Operator>«</Hyper Operator><Normal Text>cherry </Normal Text><String Delimiter>"</String Delimiter><Variable>$fruit</Variable><String Delimiter>"</String Delimiter><Hyper Operator>»</Hyper Operator><Member Operator>.</Member Operator><Normal Text>raku</Normal Text><br/> 0670 <Function>say</Function><Normal Text> </Normal Text><Variable>$a</Variable><Member Operator>.:</Member Operator><String Delimiter><</String Delimiter><String>++</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0671 <Normal Text></Normal Text><br/> 0672 <Function>say</Function><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Operator>!(elem)</Operator><Normal Text> </Normal Text><Symbol>(</Symbol><Decimal>1</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Decimal>3</Decimal><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><br/> 0673 <Normal Text></Normal Text><br/> 0674 <Function>say</Function><Normal Text> </Normal Text><Variable>$_</Variable><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>A</Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Operator>^ff^</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern>C</Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>@list</Variable><br/> 0675 <Normal Text></Normal Text><br/> 0676 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@result</Variable><Separator Symbol>;</Separator Symbol><br/> 0677 <String Delimiter><</String Delimiter><String>people of earth</String><String Delimiter>></String Delimiter><br/> 0678 <Normal Text> </Normal Text><Operator>==></Operator><Normal Text> </Normal Text><Function>map</Function><Symbol>({</Symbol><Normal Text> </Normal Text><Member Operator>.</Member Operator><Normal Text>tc </Normal Text><Symbol>})</Symbol><br/> 0679 <Normal Text> </Normal Text><Operator>==></Operator><Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@caps</Variable><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Variable>@caps</Variable><Normal Text> </Normal Text><Comment># also could wrap in parentheses instead</Comment><br/> 0680 <Normal Text> </Normal Text><Operator>==></Operator><Normal Text> grep </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern Meta Character><</Pattern Meta Character><Pattern Bracket>[</Pattern Bracket><Pattern Character>PE</Pattern Character><Pattern Bracket>]</Pattern Bracket><Pattern Meta Character>></Pattern Meta Character><Pattern Delimiter>/</Pattern Delimiter><br/> 0681 <Normal Text> </Normal Text><Operator>==></Operator><Normal Text> sort</Normal Text><Symbol>()</Symbol><br/> 0682 <Normal Text> </Normal Text><Operator>==></Operator><Normal Text> </Normal Text><Variable>@result</Variable><Separator Symbol>;</Separator Symbol><br/> 0683 <Normal Text></Normal Text><br/> 0684 <Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@result</Variable><br/> 0685 <Normal Text> </Normal Text><Operator><==</Operator><Normal Text> sort</Normal Text><Symbol>()</Symbol><br/> 0686 <Normal Text> </Normal Text><Operator><==</Operator><Normal Text> grep</Normal Text><Symbol>({</Symbol><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern Meta Character><</Pattern Meta Character><Pattern Bracket>[</Pattern Bracket><Pattern Character>PE</Pattern Character><Pattern Bracket>]</Pattern Bracket><Pattern Meta Character>></Pattern Meta Character><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Symbol>})</Symbol><br/> 0687 <Normal Text> </Normal Text><Operator><==</Operator><Normal Text> </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@caps</Variable><Normal Text> </Normal Text><Comment># unlike ==>, there's no need for additional statement</Comment><br/> 0688 <Normal Text> </Normal Text><Operator><==</Operator><Normal Text> </Normal Text><Function>map</Function><Symbol>({</Symbol><Normal Text> </Normal Text><Member Operator>.</Member Operator><Normal Text>tc </Normal Text><Symbol>})</Symbol><br/> 0689 <Normal Text> </Normal Text><Operator><==</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>people of earth</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/> 0690 <Normal Text></Normal Text><br/> 0691 <Keyword Value>False</Keyword Value><Normal Text> </Normal Text><Operator>and</Operator><Normal Text> </Normal Text><Keyword>do</Keyword><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Decimal>42</Decimal><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Symbol>}</Symbol><Separator Symbol>;</Separator Symbol><br/> 0692 <Decimal>3</Decimal><Separator Symbol>,</Separator Symbol><Normal Text> </Normal Text><Keyword>do</Keyword><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0693 <Control Flow>if</Control Flow><Normal Text> </Normal Text><Decimal>0</Decimal><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>no</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Control Flow>elsif</Control Flow><Normal Text> </Normal Text><Keyword Value>False</Keyword Value><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>NO</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>yes</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0694 <Variable>$_</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Control Flow>unless</Control Flow><Normal Text> </Normal Text><Keyword Value>False</Keyword Value><Normal Text> </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Variable>$a</Variable><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Symbol>}</Symbol><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/> 0695 <Control Flow>when</Control Flow><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>a</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0696 <Normal Text></Normal Text><br/> 0697 <Control Flow>for</Control Flow><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>..</Operator><Decimal>100</Decimal><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0698 <Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Variable>*</Variable><Normal Text> </Normal Text><Operator>%%</Operator><Normal Text> </Normal Text><Decimal>15</Decimal><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>FizzBuzz</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0699 <Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Variable>*</Variable><Normal Text> </Normal Text><Operator>%%</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Fizz</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0700 <Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Variable>*</Variable><Normal Text> </Normal Text><Operator>%%</Operator><Normal Text> </Normal Text><Decimal>5</Decimal><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Buzz</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0701 <Normal Text> </Normal Text><Control Flow>default</Control Flow><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Variable>$_</Variable><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0702 <Symbol>}</Symbol><br/> 0703 <Normal Text></Normal Text><br/> 0704 <Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> grab</Normal Text><Symbol>(</Symbol><Variable>*</Variable><Operator>*</Operator><Variable>@a</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>grab </String><Variable>$_</Variable><String Delimiter>"</String Delimiter><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>@a</Variable><Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0705 <Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> grab</Normal Text><Symbol>(</Symbol><Variable>\a</Variable><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0706 <Normal Text> a </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Data Type>Iterable</Data Type><Normal Text> </Normal Text><Operator>and</Operator><Normal Text> a</Normal Text><Member Operator>.</Member Operator><Data Type>VAR</Data Type><Normal Text> </Normal Text><Operator>!~~</Operator><Normal Text> </Normal Text><Data Type>Scalar</Data Type><Normal Text> </Normal Text><Operator>??</Operator><Normal Text> nextwith</Normal Text><Symbol>(</Symbol><Operator>|</Operator><Normal Text>a</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>!!</Operator><Normal Text> nextwith</Normal Text><Symbol>(</Symbol><Normal Text>a</Normal Text><Separator Symbol>,</Separator Symbol><Symbol>)</Symbol><br/> 0707 <Symbol>}</Symbol><br/> 0708 <Normal Text></Normal Text><br/> 0709 <Control Flow>for</Control Flow><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>.</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0710 <Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>Str</Data Type><Member Operator>.</Member Operator><Function>say</Function><Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Operator>!</Operator><Member Operator>.</Member Operator><Data Type>IO</Data Type><Member Operator>.</Member Operator><Normal Text>d</Normal Text><Separator Symbol>;</Separator Symbol><br/> 0711 <Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>IO</Data Type><Member Operator>.</Member Operator><Normal Text>dir</Normal Text><Symbol>()</Symbol><Hyper Operator>»</Hyper Operator><Member Operator>.</Member Operator><Variable>&</Variable><Twigil>?</Twigil><Variable>BLOCK</Variable><Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Member Operator>.</Member Operator><Data Type>IO</Data Type><Member Operator>.</Member Operator><Normal Text>d </Normal Text><Comment># lets recurse a little!</Comment><br/> 0712 <Symbol>}</Symbol><br/> 0713 <Normal Text></Normal Text><br/> 0714 <Function>say</Function><Normal Text> a</Normal Text><Hyper Operator>»</Hyper Operator><Member Operator>.</Member Operator><Symbol>(</Symbol><Float>0.5</Float><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Function>say</Function><Normal Text> a</Normal Text><Hyper Operator>>></Hyper Operator><Member Operator>.</Member Operator><Symbol>(</Symbol><Float>0.5</Float><Symbol>)</Symbol><Separator Symbol>;</Separator Symbol><Normal Text> a</Normal Text><Member Operator>.:</Member Operator><String Delimiter><</String Delimiter><String>sa</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><Normal Text> a</Normal Text><Member Operator>.</Member Operator><Normal Text> sa </Normal Text><Separator Symbol>:</Separator Symbol><Operator>!</Operator><Keyword Value>False</Keyword Value><br/> 0715 <Normal Text>func </Normal Text><String Delimiter><</String Delimiter><String>a b</String><String Delimiter>></String Delimiter><br/> 0716 <Normal Text></Normal Text><br/> 0717 <Normal Text></Normal Text><br/> 0718 <Control Flow>if</Control Flow><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>abc-abc-abc</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Pattern Delimiter>/</Pattern Delimiter><Pattern> </Pattern><Pattern Named Capture>$<string></Pattern Named Capture><Pattern>=</Pattern><Symbol>(</Symbol><Pattern> </Pattern><Symbol>[</Symbol><Pattern> </Pattern><Pattern Named Capture>$<part></Pattern Named Capture><Pattern>=</Pattern><Symbol>[</Symbol><Pattern>abc</Pattern><Symbol>]</Symbol><Pattern> </Pattern><Symbol>]</Symbol><Pattern Quantifier>*</Pattern Quantifier><Pattern> </Pattern><Pattern Quantifier>%</Pattern Quantifier><Pattern> </Pattern><String Delimiter>'</String Delimiter><String>-</String><String Delimiter>'</String Delimiter><Pattern> </Pattern><Symbol>)</Symbol><Pattern> </Pattern><Pattern Delimiter>/</Pattern Delimiter><Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0719 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Operator>~</Operator><Variable>$<string></Variable><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «abc-abc-abc»</Comment><br/> 0720 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Operator>~</Operator><Variable>$<string><part></Variable><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «abc abc abc»</Comment><br/> 0721 <Normal Text> </Normal Text><Function>say</Function><Normal Text> </Normal Text><Operator>~</Operator><Variable>$<string><part></Variable><Symbol>[</Symbol><Decimal>0</Decimal><Symbol>]</Symbol><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># OUTPUT: «abc»</Comment><br/> 0722 <Symbol>}</Symbol><br/> 0723 <Normal Text></Normal Text><br/> 0724 <Symbol>[</Symbol><Hyper Operator>«</Hyper Operator><Symbol>[</Symbol><Hyper Operator>«</Hyper Operator><Symbol>[</Symbol><Hyper Operator>«</Hyper Operator><Symbol>[</Symbol><Operator>+</Operator><Symbol>]</Symbol><Hyper Operator>»</Hyper Operator><Symbol>]</Symbol><Hyper Operator>»</Hyper Operator><Symbol>]</Symbol><Hyper Operator>»</Hyper Operator><Symbol>]</Symbol><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>1 2 3 4</String><String Delimiter>></String Delimiter><br/>