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/>