<Keyword>#!/usr/bin/perl6</Keyword><br/>
<Normal Text></Normal Text><br/>
<Keyword>use</Keyword><Normal Text> v6</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Control Flow>if</Control Flow><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Control Flow>if</Control Flow><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Operator>say</Operator><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/>
<Normal Text>        </Normal Text><Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Control Flow>if</Control Flow><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Control Flow>if</Control Flow><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>{say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Control Flow>if</Control Flow><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Hello</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>}</Operator><Normal Text> </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Goodbye</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>}</Operator><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>world</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Comment>## </Comment><Region Marker>BEGIN</Region Marker><Comment> Comments</Comment><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Comment>here? )</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Comment>here? }}</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Comment>here? ]]</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Comment>here? »»»</Comment><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Decimal>2</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Comment>#`[</Comment><br/>
<Comment>  This is another multi-line comment. ]</Comment><br/>
<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><Operator>.</Operator><Normal Text>sort</Normal Text><Operator>({</Operator><Normal Text> </Normal Text><Variable>%sets</Variable><Operator>{</Operator><Variable>$_</Variable><Operator>}</Operator><Normal Text> </Normal Text><Operator>}).</Operator><Normal Text>sort</Normal Text><Operator>({</Operator><Normal Text> </Normal Text><Variable>%matches</Variable><Operator>{</Operator><Variable>$_</Variable><Operator>}</Operator><Normal Text> </Normal Text><Operator>}).</Operator><Normal Text>reverse</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Comment>#`{ So is this, though it's not actually multi-line. }</Comment><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>code again</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Comment>#`(  Multiple line comments `( sub-comment )`)</Comment><Normal Text>`</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Comment>## </Comment><Region Marker>END</Region Marker><Comment> Comments</Comment><br/>
<Normal Text></Normal Text><br/>
<Comment>#`[</Comment><br/>
<Comment>And this is how a multi would work.</Comment><br/>
<Comment>That says why we do what we do below.</Comment><br/>
<Comment>]</Comment><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>No more</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Comment>#`{{a}a}}</Comment><Normal Text> </Normal Text><Operator>say</Operator><Normal Text> ok</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>No more</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>this is code</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>A very simple Pod6 document</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>head1</Pod Typename Value><br/>
<Pod Paragraph>Top Level Heading</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>head1</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> Top level heading</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>head1</Pod Typename><br/>
<Pod Typename Value>Top Level Heading</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Unknown>cutsdads</Pod Unknown><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> This is a head1 title</Pod Typename Value><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>This is a paragraph.</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Typename>head2</Pod Typename><Pod Typename Value> Subsection</Pod Typename Value><br/>
<Pod Typename Value># plop</Pod Typename Value><br/>
<Pod Typename Value>Here some text for the subsection.</Pod Typename Value><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<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/>
<Pod Paragraph>mow lawn</Pod Paragraph><br/>
<Pod Paragraph>take out trash</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> This is a heading block</Pod Typename Value><br/>
<Pod Typename Value>This is an ordinary paragraph.</Pod Typename Value><br/>
<Pod Typename Value>Its text will be squeezed and</Pod Typename Value><br/>
<Pod Typename Value>short lines filled. It is terminated by</Pod Typename Value><br/>
<Pod Typename Value>the first blank line.</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head2</Pod Typename><Pod Typename Value> This is another heading block</Pod Typename Value><br/>
<Pod Typename Value>This is yet another ordinary paragraph,</Pod Typename Value><br/>
<Pod Typename Value>at the first virtual column set by the</Pod Typename Value><br/>
<Pod Typename Value>previous directive</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Comment>#</Comment><Pod Operator>|</Pod Operator><Comment> Base class for magicians</Comment><br/>
<Keyword>class</Keyword><Normal Text> </Normal Text><Data Type>Magician</Data Type><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>  </Normal Text><Variable Storage>has</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$.level</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>  </Normal Text><Variable Storage>has</Variable Storage><Normal Text> </Normal Text><Data Type>Str</Data Type><Normal Text> @</Normal Text><Operator>.</Operator><Normal Text>spells</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Comment>#</Comment><Pod Operator>|</Pod Operator><Comment> Fight mechanics</Comment><br/>
<Declare Routine>sub</Declare Routine><Normal Text> duel</Normal Text><Operator>(</Operator><Data Type>Magician</Data Type><Normal Text> </Normal Text><Variable>$a</Variable><Operator>,</Operator><Normal Text> </Normal Text><Data Type>Magician</Data Type><Normal Text> </Normal Text><Variable>$b</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Operator>}</Operator><br/>
<Comment>#</Comment><Pod Operator>=</Pod Operator><Comment>«<((</Comment><br/>
<Comment> <Magicians only, no mortals. ></Comment><br/>
<Comment> Magicians only, no mortals.</Comment><br/>
<Comment>))>»</Comment><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Data Type>Magician</Data Type><Operator>.</Operator><Normal Text>WHY</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Comment>#</Comment><Pod Operator>|</Pod Operator><Comment><< This is an example of stringification:</Comment><br/>
<Comment>    * Numbers turn into strings</Comment><br/>
<Comment> >   * Regexes operate on said strings</Comment><br/>
<Comment>    * C<with> topicalizes and places result into $_</Comment><br/>
<Comment>>></Comment><br/>
<Declare Routine>sub</Declare Routine><Normal Text> search-in-seq</Normal Text><Operator>(</Operator><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$end</Variable><Operator>,</Operator><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Variable>$number</Variable><Normal Text> </Normal Text><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    with </Normal Text><Operator>(^</Operator><Variable>$end</Variable><Operator>).</Operator><Normal Text>grep</Normal Text><Operator>(</Operator><Normal Text> </Normal Text><Operator>/^</Operator><Variable>$number</Variable><Operator>/</Operator><Normal Text> </Normal Text><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Operator>.say</Operator><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$_</Variable><String Delimiter><></String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
<Comment>#</Comment><Pod Operator>=</Pod Operator><Comment> Uses     * topic    * decont operator</Comment><br/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/>
<Pod Typename Value>abc</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/>
<Pod>=</Pod><Pod Typename>para</Pod Typename><br/>
<Pod Typename Value>abc</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/>
<Normal Text> </Normal Text><Pod Typename Value>abc</Pod Typename Value><br/>
<Pod Typename Value>abc</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/>
<Pod Typename Value>abc</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> plop</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>for</Pod Typename><Normal Text> </Normal Text><Pod Typename>head1</Pod Typename><br/>
<Pod Typename Value>plop</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<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/>
<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/>
<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/>
<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/>
<Pod Typename Value>abc</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<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/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>0</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<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/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Typename>head1</Pod Typename><Pod Typename Value> The</Pod Typename Value><br/>
<Pod Typename Value>Title</Pod Typename Value><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Error> ab</Error><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>b</Pod Typename Value><Error> a</Error><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>abc</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>a</Pod Typename Value><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Typename>item</Pod Typename><Pod Typename Value> a</Pod Typename Value><br/>
<Pod>=</Pod><Pod Typename>item</Pod Typename><Pod Typename Value> b</Pod Typename Value><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/>
<Pod Verbatim> =item a</Pod Verbatim><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/>
<Pod Verbatim> =item a</Pod Verbatim><br/>
<Pod Verbatim> b</Pod Verbatim><br/>
<Pod Verbatim>=end code d</Pod Verbatim><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>code</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>comment</Pod Typename Value><br/>
<Comment>Here are several</Comment><br/>
<Comment>lines</Comment><br/>
<Comment>of comment</Comment><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>comment</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Pod>=</Pod><Pod Block>begin</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/>
<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/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Verbatim>C<my $var = 1; say $var;></Pod Verbatim><br/>
<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/>
<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/>
<Pod Paragraph>Perl 6 is awesome </Pod Paragraph><Pod Comment>Z<Of course it is!></Pod Comment><br/>
<Pod Paragraph>Perl 6 is multi-paradigmatic </Pod Paragraph><Pod Note>N<Supporting Procedural, Object Oriented, and Functional programming></Pod Note><br/>
<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/>
<Pod Paragraph></Pod Paragraph><br/>
<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/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Typename>DISCLAIMER</Pod Typename><br/>
<Pod Link>P<http://www.MegaGigaTeraPetaCorp.com/std/disclaimer.txt></Pod Link><br/>
<Pod Paragraph></Pod Paragraph><br/>
<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/>
<Pod Paragraph>is an unordered collection of scalar values indexed by their</Pod Paragraph><br/>
<Pod Paragraph>associated string key.</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod Paragraph>    my @names = <Foo Bar Baz>;</Pod Paragraph><br/>
<Pod Paragraph>    my @upper-case-names = @names.map: { .uc }    # OUTPUT: [FOO BAR BAZ]</Pod Paragraph><br/>
<Pod Paragraph></Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>pod</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<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/>
<Pod Paragraph>mow lawn</Pod Paragraph><br/>
<Pod Paragraph>take out trash</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<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/>
<Pod Paragraph>mow lawn</Pod Paragraph><br/>
<Pod Paragraph>take out trash</Pod Paragraph><br/>
<Pod>=</Pod><Pod Block>end</Pod Block><Normal Text> </Normal Text><Pod Typename Value>table</Pod Typename Value><br/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><Normal Text> Q</Normal Text><Operator>(</Operator><String Delimiter>'</String Delimiter><String>this is a function</String><String Delimiter>'</String Delimiter><Operator>)</Operator><Normal Text> </Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>Very plain</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>No $interpolation {here}!</String><String Delimiter>'</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>qqww</Operator><String Delimiter>|</String Delimiter><String>a</String><String Delimiter>|</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say(qq:to</Operator><String Delimiter>/TERM INATOR/</String Delimiter><String>, 1+1);</String><br/>
<String> blah blah</String><br/>
<String> </String><String Delimiter>TERM INATOR</String Delimiter><br/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<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/>
<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/>
<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/>
<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/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$*dynamic1</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$*dynamic2</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>100</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> say-all</Normal Text><Operator>()</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>say</Operator><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/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Normal Text>say-all</Normal Text><Operator>()</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>{</Operator><br/>
<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/>
<Normal Text>    </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$*dynamic1</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>11</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Variable>$*dynamic2</Variable><Normal Text>    </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>101</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<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/>
<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><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><Normal Text>   </Normal Text><Comment># Array variable with three elements</Comment><br/>
<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><Operator>,</Operator><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/>
<Normal Text></Normal Text><br/>
<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><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Variable Storage>has</Variable Storage><Normal Text> </Normal Text><Data Type>Bool</Data Type><Normal Text> </Normal Text><Variable>$!final</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Data Type>False</Data Type><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>method</Declare Routine><Normal Text> AT-KEY </Normal Text><Operator>(</Operator><Normal Text> </Normal Text><Variable>::?CLASS</Variable><Operator>:</Operator><Attribute>D</Attribute><Operator>:</Operator><Normal Text> </Normal Text><Data Type>Str</Data Type><Operator>:</Operator><Attribute>D</Attribute><Normal Text> </Normal Text><Variable>\key</Variable><Normal Text> </Normal Text><Operator>){</Operator><br/>
<Normal Text>        </Normal Text><Control Flow>fail</Control Flow><Normal Text> </Normal Text><Operator>X::</Operator><Attribute>OutOfRange</Attribute><Operator>.</Operator><Normal Text>new</Normal Text><Operator>(:</Operator><Attribute>what</Attribute><Operator>(</Operator><String Delimiter>"</String Delimiter><String>Hash key</String><String Delimiter>"</String Delimiter><Operator>),</Operator><Normal Text> </Normal Text><Operator>:</Operator><Attribute>got</Attribute><Operator>(</Operator><Normal Text>key</Normal Text><Operator>),</Operator><br/>
<Normal Text>          </Normal Text><Operator>:</Operator><Attribute>range</Attribute><Operator>(</Operator><Keyword Value>self</Keyword Value><Operator>.</Operator><Normal Text>keys</Normal Text><Operator>))</Operator><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Variable>$!final</Variable><Normal Text> </Normal Text><Operator>&&</Operator><Normal Text> </Normal Text><Operator>!</Operator><Keyword Value>self</Keyword Value><Operator>.</Operator><Normal Text>EXISTS-KEY</Normal Text><Operator>(</Operator><Normal Text>key</Normal Text><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>        callsame</Normal Text><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Normal Text>    </Normal Text><Declare Routine>method</Declare Routine><Normal Text> finalize</Normal Text><Operator>()</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Variable>$!final</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Data Type>True</Data Type><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<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><Operator>,</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>%h</Variable><String Delimiter><</String Delimiter><String>oranges</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Variable>%h</Variable><Operator>.</Operator><Normal Text>finalize</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>%h</Variable><String Delimiter><</String Delimiter><String>cherry</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Keyword>CATCH</Keyword><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Control Flow>default</Control Flow><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> put </Normal Text><Operator>.^</Operator><Normal Text>name</Normal Text><Operator>,</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>: </String><String Delimiter>'</String Delimiter><Operator>,</Operator><Normal Text> </Normal Text><Operator>.</Operator><Data Type>Str</Data Type><Normal Text> </Normal Text><Operator>}</Operator><Normal Text> </Normal Text><Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Normal Text> </Normal Text><Variable>@foo</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$bar</Variable><Normal Text> </Normal Text><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>@foo</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Operator>(</Operator><Variable>$bar</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>42</Decimal><Operator>,</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>str</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> anon </Normal Text><Keyword>class</Keyword><Normal Text> þ </Normal Text><Operator>{}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> anon </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> þ  </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Decimal>42</Decimal><Normal Text> </Normal Text><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> a </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Variable Storage>state</Variable Storage><Normal Text> </Normal Text><Variable>@x</Variable><Separator Symbol>;</Separator Symbol><br/>
<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/>
<Normal Text>    </Normal Text><Variable>@x</Variable><Operator>.push(</Operator><Variable>$l</Variable><Operator>++)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> foo</Normal Text><Operator>(</Operator><Variable>$x</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<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><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Variable>$v</Variable><Operator>[</Operator><Variable>$x</Variable><Operator>]</Operator><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$x</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><Variable>$v</Variable><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Normal Text>foo</Normal Text><Operator>(</Operator><Variable>$_</Variable><Operator>)</Operator><Normal Text> </Normal Text><Control Flow>for</Control Flow><Normal Text> </Normal Text><Operator>^</Operator><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Keyword>use</Keyword><Normal Text> MONKEY-TYPING</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Keyword>augment</Keyword><Normal Text> </Normal Text><Keyword>class</Keyword><Normal Text> </Normal Text><Data Type>Int</Data Type><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Declare Routine>method</Declare Routine><Normal Text> is-answer </Normal Text><Operator>{</Operator><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><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>42</Decimal><Operator>.</Operator><Normal Text>is-answer</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> f</Normal Text><Operator>(*</Operator><Variable>@c</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>(temp</Operator><Normal Text> </Normal Text><Variable>$in</Variable><Operator>)++</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>     </Normal Text><String Delimiter>"</String Delimiter><String><f></String><String Special Character>\n</String Special Character><String Delimiter>"</String Delimiter><br/>
<Normal Text>     </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><Variable>@c</Variable><Operator>».</Operator><Normal Text>indent</Normal Text><Operator>(</Operator><Variable>$in</Variable><Operator>).</Operator><Normal Text>join</Normal Text><Operator>(</Operator><String Delimiter>"</String Delimiter><String Special Character>\n</String Special Character><String Delimiter>"</String Delimiter><Operator>)</Operator><br/>
<Normal Text>     </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><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><Operator>)</Operator><br/>
<Normal Text>     </Normal Text><Operator>~</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String></f></String><String Delimiter>'</String Delimiter><br/>
<Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>.say</Operator><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Operator>m/</Operator><Pattern Meta Character><</Pattern Meta Character><Operator>-</Operator><String>alpha</String><Pattern Meta Character>></Pattern Meta Character><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Control Flow>for</Control Flow><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>.</String><String Delimiter>'</String Delimiter><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>.</Operator><Data Type>Str</Data Type><Operator>.say</Operator><Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Operator>!.</Operator><Data Type>IO</Data Type><Operator>.</Operator><Normal Text>d</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Operator>.</Operator><Data Type>IO</Data Type><Operator>.</Operator><Normal Text>dir</Normal Text><Operator>()».</Operator><Variable>&</Variable><Twigil>?</Twigil><Variable>BLOCK</Variable><Normal Text> </Normal Text><Control Flow>when</Control Flow><Normal Text> </Normal Text><Operator>.</Operator><Data Type>IO</Data Type><Operator>.</Operator><Normal Text>d </Normal Text><Comment># lets recurse a little!</Comment><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Keyword>use</Keyword><Normal Text> </Normal Text><Data Type>Dog</Data Type><Operator>:</Operator><Attribute>auth</Attribute><String Delimiter><</String Delimiter><String>Somebody</String><String Delimiter>></String Delimiter><Operator>:</Operator><Attribute>ver</Attribute><String Delimiter><</String Delimiter><String>2.0</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Normal Text>infix</Normal Text><Operator>:<+></Operator><br/>
<Normal Text>infix</Normal Text><Operator>:<*></Operator><br/>
<Normal Text>infix</Normal Text><Operator>:«<=»</Operator><br/>
<Normal Text></Normal Text><br/>
<Normal Text>postfix</Normal Text><Operator>:</Operator><String Delimiter><</String Delimiter><String>²</String><String Delimiter>></String Delimiter><br/>
<Normal Text>WOW</Normal Text><Operator>:</Operator><Attribute>That'sAwesome</Attribute><br/>
<Normal Text>WOW</Normal Text><Operator>:</Operator><Attribute>That's</Attribute><String Delimiter><<</String Delimiter><String>🆒</String><String Delimiter>>></String Delimiter><br/>
<Normal Text>party</Normal Text><Operator>:</Operator><Attribute>sweet</Attribute><String Delimiter><</String Delimiter><String>16</String><String Delimiter>></String Delimiter><br/>
<Normal Text></Normal Text><br/>
<Normal Text>infix</Normal Text><Operator>:<+></Operator><br/>
<Normal Text>infix</Normal Text><Operator>:<<+>></Operator><br/>
<Normal Text>infix</Normal Text><Operator>:«+»</Operator><br/>
<Normal Text>infix</Normal Text><Operator>:['+']</Operator><br/>
<Normal Text>infix</Normal Text><Operator>:('+')</Operator><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Operator>:</Operator><Attribute>b</Attribute><String Delimiter><</String Delimiter><String>c</String><String Delimiter>></String Delimiter><Operator>:</Operator><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/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Operator>:</Operator><Attribute>d</Attribute><String Delimiter><</String Delimiter><String>e</String><String Delimiter>></String Delimiter><Operator>:</Operator><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/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>$a</Variable><Operator>:</Operator><Attribute>b</Attribute><String Delimiter><</String Delimiter><String>c</String><String Delimiter>></String Delimiter><Operator>:</Operator><Attribute>d</Attribute><String Delimiter><</String Delimiter><String>e</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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><Operator>:</Operator><String Delimiter><</String Delimiter><String>👍</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>&ok</Variable><Operator>.</Operator><Normal Text>assuming</Normal Text><Operator>(</Operator><Data Type>True</Data Type><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>👍</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$x</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Control Flow>do</Control Flow><Normal Text> </Normal Text><Control Flow>if</Control Flow><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Decimal>42</Decimal><Normal Text> </Normal Text><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>1000000</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>1_000_000</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>10_00000</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>100_00_00</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>-</Operator><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>12345</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Hex>0xBEEF</Hex><Operator>,</Operator><Normal Text> </Normal Text><Octal>0o755</Octal><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Decimal>3</Decimal><Operator><</Operator><Decimal>1201</Decimal><Operator>></Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Float>1.0</Float><Operator>,</Operator><Normal Text> </Normal Text><Float>3.14159</Float><Operator>,</Operator><Normal Text> </Normal Text><Operator>-</Operator><Float>2.5</Float><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Decimal>3</Decimal><Operator><</Operator><Float>21.0012</Float><Operator>></Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Float>1e0</Float><Operator>,</Operator><Normal Text> </Normal Text><Float>6.022e23</Float><Operator>,</Operator><Normal Text> </Normal Text><Float>1e-9</Float><Operator>,</Operator><Normal Text> </Normal Text><Operator>-</Operator><Float>2e48</Float><Operator>,</Operator><Normal Text> </Normal Text><Float>2e2i</Float><Operator>,</Operator><Normal Text> </Normal Text><Operator>.</Operator><Decimal>42</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>.</Operator><Normal Text>e2</Normal Text><Operator>,</Operator><Normal Text> </Normal Text><Operator>.</Operator><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Octal>0o3</Octal><Error>9</Error><Operator>,</Operator><Normal Text> </Normal Text><Hex>0xfF3</Hex><Error>u</Error><Operator>,</Operator><Normal Text> </Normal Text><Octal>0o</Octal><Error>i</Error><Operator>,</Operator><Normal Text> </Normal Text><Hex>0x</Hex><Error>i</Error><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Decimal>3</Decimal><Operator><</Operator><Error>></Error><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Decimal>23</Decimal><Operator><</Operator><Decimal>gg</Decimal><Error> </Error><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># error</Comment><br/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$size</Variable><Normal Text> </Normal Text><Operator>«[r/]«</Operator><Normal Text> </Normal Text><Operator>(</Operator><Decimal>2</Decimal><Operator>**</Operator><Decimal>60</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>50</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>40</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>30</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>20</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>**</Operator><Decimal>10</Decimal><Operator>)</Operator><br/>
<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><Operator>[</Operator><Variable>\v</Variable><Operator>,</Operator><Variable>\suffix</Variable><Operator>]</Operator><br/>
<Normal Text></Normal Text><br/>
<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/>
<Variable>$a</Variable><Normal Text> </Normal Text><Operator>+=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Variable>$a</Variable><Normal Text> </Normal Text><Operator>-=</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Variable>$a</Variable><Normal Text> </Normal Text><Operator>min=</Operator><Normal Text> </Normal Text><Decimal>5</Decimal><Separator Symbol>;</Separator Symbol><br/>
<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/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> infix</Normal Text><Operator>:</Operator><String Delimiter><</String Delimiter><String>space-concat</String><String Delimiter>></String Delimiter><Normal Text> </Normal Text><Operator>(</Operator><Variable>$a</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$b</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><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><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<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/>
<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/>
<Normal Text></Normal Text><br/>
<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/>
<Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Float>3.14</Float><Separator Symbol>;</Separator Symbol><br/>
<Variable>$a</Variable><Normal Text> </Normal Text><Operator>.=</Operator><Normal Text> round</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Data Type>True</Data Type><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Variable>$a</Variable><Normal Text> </Normal Text><Operator>!=</Operator><Normal Text> </Normal Text><Data Type>True</Data Type><Separator Symbol>;</Separator Symbol><br/>
<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/>
<Normal Text></Normal Text><br/>
<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><Operator>.</Operator><Normal Text>new</Normal Text><Operator>(:</Operator><Decimal>2015</Decimal><Normal Text>year</Normal Text><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Decimal>12</Decimal><Normal Text>month</Normal Text><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Decimal>24</Decimal><Normal Text>day</Normal Text><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<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><Operator>.</Operator><Normal Text>today</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Variable>$release</Variable><Normal Text> </Normal Text><Operator>!</Operator><Normal Text>before </Normal Text><Variable>$today</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>[R/]</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>4</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>16</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>[RZ~]</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>1 2 3</String><String Delimiter>></String Delimiter><Operator>,<</Operator><Decimal>4</Decimal><Normal Text> </Normal Text><Decimal>5</Decimal><Normal Text> </Normal Text><Decimal>6</Decimal><Operator>></Operator><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>(</Operator><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Operator>)</Operator><Normal Text> </Normal Text><Operator>»*»</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>(</Operator><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>4</Decimal><Operator>)</Operator><Normal Text> </Normal Text><Operator>»~»</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>a b</String><String Delimiter>></String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>(</Operator><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Operator>)</Operator><Normal Text> </Normal Text><Operator>»+«</Operator><Normal Text> </Normal Text><Operator>(</Operator><Decimal>4</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>5</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>6</Decimal><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>(</Operator><Variable>&sin</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>&cos</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>&sqrt</Variable><Operator>)».(</Operator><Float>0.5</Float><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>@a</Variable><Normal Text> </Normal Text><Operator>»+=»</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Variable>$a</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$b</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$c</Variable><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>((</Operator><Variable>$a</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$b</Variable><Operator>),</Operator><Normal Text> </Normal Text><Variable>$c</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>«=»</Operator><Normal Text> </Normal Text><Operator>((</Operator><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>),</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>!«</Operator><Normal Text> </Normal Text><Variable>@wisdom</Variable><Separator Symbol>;</Separator Symbol><br/>
<Variable>@a</Variable><Normal Text>»</Normal Text><Operator>++</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>-«</Operator><Normal Text> </Normal Text><Operator>[[</Operator><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>],</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Operator>]</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Variable>@slops</Variable><Operator>».?</Operator><Normal Text>this-method-may-not-exist</Normal Text><Operator>()</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><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/>
<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><Operator>,</Operator><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/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>%outer</Variable><Normal Text> </Normal Text><Operator>«~»</Operator><Normal Text> </Normal Text><Variable>%inner</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>$neighbors</Variable><Normal Text> </Normal Text><Operator>»>>+<<»</Operator><Normal Text> </Normal Text><Operator>(</Operator><Variable>$p</Variable><Operator>,</Operator><Normal Text> </Normal Text><Operator>*)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> plus </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Variable>$^a</Variable><Normal Text> </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><Variable>$^b</Variable><Normal Text> </Normal Text><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>[[&plus]]</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>@n</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Operator>[</Operator><Normal Text>\</Normal Text><Operator>~]</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>..*</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>@n</Variable><Operator>[^</Operator><Decimal>5</Decimal><Operator>]</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Operator>*</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>so</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Normal Text> S</Normal Text><Operator>&</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Normal Text> S</Normal Text><Operator>&</Operator><Normal Text> </Normal Text><Decimal>3</Decimal><Separator Symbol>;</Separator Symbol><br/>
<Variable>@a</Variable><Normal Text> </Normal Text><Operator>X[+=]</Operator><Normal Text> </Normal Text><Variable>@b</Variable><Separator Symbol>;</Separator Symbol><br/>
<Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> postfix</Normal Text><Operator>:<++>(</Operator><Variable>$x</Variable><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>rw</Property><Operator>)</Operator><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/>
<Operator>say</Operator><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/>
<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><Operator>(</Operator><Variable>$x</Variable><Normal Text> </Normal Text><Operator>/</Operator><Normal Text> </Normal Text><Variable>$y</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>*</Operator><Normal Text> </Normal Text><Variable>$y</Variable><br/>
<Operator>say</Operator><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><Operator>(</Operator><String Delimiter><</String Delimiter><String>a a b c c</String><String Delimiter>></String Delimiter><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Operator>-«</Operator><Normal Text> </Normal Text><String Delimiter><</String Delimiter><String>1 2 3</String><String Delimiter>></String Delimiter><br/>
<Normal Text></Normal Text><br/>
<Comment># This is wrong: creates a Hash of Mixes, not Mix:</Comment><br/>
<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/>
<Comment># Works with $ sigil:</Comment><br/>
<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/>
<Comment># Can be typed:</Comment><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Mix</Data Type><Operator>[</Operator><Data Type>Int</Data Type><Operator>]</Operator><Normal Text> </Normal Text><Variable>$mix-of-ints</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>$x</Variable><Separator Symbol>;</Separator Symbol><br/>
<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/>
<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/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Data Type>Int</Data Type><Operator>:</Operator><Attribute>D</Attribute><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/>
<Normal Text>ndef</Normal Text><Operator>)</Operator><br/>
<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><Operator>{</Operator><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><Operator>=</Operator><Normal Text> </Normal Text><Decimal>7</Decimal><Separator Symbol>;</Separator Symbol><br/>
<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><Operator>*</Operator><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/>
<Normal Text></Normal Text><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>tr</Operator><Pattern Modifier>:d:c</Pattern Modifier><Operator>!</Operator><Pattern>dol</Pattern><Operator>!</Operator><String>wne</String><Operator>!</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>TR</Operator><Pattern Modifier>:c</Pattern Modifier><Operator>/</Operator><Pattern>dol</Pattern><Operator>/</Operator><String>wne</String><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>s!</Operator><Pattern>foo</Pattern><Operator>!</Operator><String>fox</String><Operator>!</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>/</Operator><Pattern>foo</Pattern><Operator>/</Operator><Normal Text>bar</Normal Text><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>///</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>rx/</Operator><Pattern>foo</Pattern><Operator>/</Operator><Normal Text>bar</Normal Text><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><String>Q </String><Operator>:</Operator><Keyword>regex</Keyword><Normal Text> /foo/;</Normal Text><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>s{</Operator><Pattern>b</Pattern><Operator>(</Operator><Pattern Special Character>.</Pattern Special Character><Operator>)</Operator><Pattern>r</Pattern><Operator>}</Operator><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/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Operator>{</Operator><Pattern>fox</Pattern><Operator>}</Operator><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Comment># error</Comment><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> </Normal Text><Operator>{</Operator><Pattern>fox</Pattern><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>rx/</Operator><Pattern> </Pattern><Pattern Control Flow>^</Pattern Control Flow><Pattern>ab </Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>/</Operator><Normal Text> </Normal Text><Operator>^</Operator><Normal Text> ab </Normal Text><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>rx/</Operator><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern> 2</Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>tr</Operator><Pattern Modifier>:d:c</Pattern Modifier><Operator>!</Operator><Pattern>dol</Pattern><Operator>!</Operator><String>wne</String><Operator>!</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>TR</Operator><Pattern Modifier>:c</Pattern Modifier><Operator>/</Operator><Pattern>dol</Pattern><Operator>/</Operator><String>wne</String><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>s!</Operator><Pattern>foo</Pattern><Operator>!</Operator><String>fox</String><Operator>!</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>rx/</Operator><Pattern>foo</Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text>:ds </Normal Text><Operator>{</Operator><Pattern>fox</Pattern><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Operator>{</Operator><Pattern>fox</Pattern><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable Storage>my</Variable Storage><Normal Text> a </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Operator>/</Operator><Pattern>a</Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>rx/</Operator><Pattern> </Pattern><Pattern Control Flow>^</Pattern Control Flow><Pattern>ab </Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>a </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Operator>/</Operator><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><Operator>(</Operator><String Delimiter>'</String Delimiter><String>Basic Latin</String><String Delimiter>'</String Delimiter><Operator>)</Operator><Pattern Meta Character>></Pattern Meta Character><Pattern>  </Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>//</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text> </Normal Text><Operator>rx</Operator><Pattern Modifier>:sigspace</Pattern Modifier><Operator>.</Operator><Pattern Character Class>\d</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Pattern Meta Character>< </Pattern Meta Character><Pattern Unicode Property>:Script</Pattern Unicode Property><Pattern Meta Character> </Pattern Meta Character><Operator>+</Operator><Pattern Unicode Property>:Block</Pattern Unicode Property><Pattern Meta Character> </Pattern Meta Character><String Delimiter>"</String Delimiter><String>Basic Latin</String><String Delimiter>"</String Delimiter><Pattern Meta Character> </Pattern Meta Character><Operator>+</Operator><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/>
<String Delimiter>'</String Delimiter><String>-</String><String Delimiter>'</String Delimiter><Operator>.</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>rx/</Operator><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 Character Class>\d</Pattern Character Class><Pattern Character> a d</Pattern Character><Pattern Meta Character>]</Pattern Meta Character><Operator>+</Operator><Pattern Meta Character>[</Pattern Meta Character><Pattern Character Class>\</Pattern Character Class><String Special Character>x233</String Special Character><Pattern Quantifier>..</Pattern Quantifier><Pattern Character Class>\</Pattern Character Class><Pattern Meta Character>]</Pattern Meta Character><Pattern Character> " </Pattern Character><Pattern Character Class>\</Pattern Character Class><String Special Character>c[dsds]</String Special Character><Pattern Meta Character>]></Pattern Meta Character><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>m</Operator><Pattern Modifier>:g</Pattern Modifier><Operator>/[(</Operator><Pattern Meta Character><[</Pattern Meta Character><Pattern Character>ACGT</Pattern Character><Pattern Meta Character>]></Pattern Meta Character><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern Control Flow>:</Pattern Control Flow><Pattern> 3</Pattern><Operator>)</Operator><Pattern> </Pattern><Pattern Character Class>\s</Pattern Character Class><Pattern Quantifier>*</Pattern Quantifier><Operator>]</Operator><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Pattern Character Class>\s</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Operator>(</Operator><Pattern Meta Character><[</Pattern Meta Character><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 Meta Character>]></Pattern Meta Character><Pattern Quantifier>+</Pattern Quantifier><Operator>)/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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><Operator>m/</Operator><Pattern Control Flow>^^</Pattern Control Flow><Pattern> </Pattern><Operator><?</Operator><Pattern Meta Character>[</Pattern Meta Character><Pattern Character>$</Pattern Character><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><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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><Operator>/</Operator><Pattern Character Class>\</Pattern Character Class><Pattern Meta Character>/</Pattern Meta Character><Pattern Special Character>.</Pattern Special Character><Pattern Quantifier>**</Pattern Quantifier><Pattern>!</Pattern><Operator>{</Operator><Decimal>1</Decimal><Operator>..</Operator><Decimal>10</Decimal><Operator>}</Operator><Pattern Character Class>\</Pattern Character Class><Pattern Meta Character>/</Pattern Meta Character><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>rx</Normal Text><Operator>(</Operator><Normal Text>a</Normal Text><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>rx (</Operator><Pattern>a</Pattern><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> </Normal Text><Operator>{</Operator><Pattern>fox</Pattern><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Variable>$str</Variable><Normal Text> </Normal Text><Operator>~~</Operator><Normal Text> </Normal Text><Operator>s{</Operator><Pattern>b</Pattern><Operator>(</Operator><Pattern Special Character>.</Pattern Special Character><Operator>)</Operator><Pattern>r</Pattern><Operator>}</Operator><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/>
<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><Operator>/</Operator><Pattern> </Pattern><Operator>[</Operator><Pattern>a</Pattern><Pattern Control Flow>||</Pattern Control Flow><Pattern>b</Pattern><Operator>]</Operator><Pattern> </Pattern><Operator>(</Operator><Pattern>c</Pattern><Operator>)</Operator><Pattern> </Pattern><Operator>/</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><Operator>~</Operator><Variable>$0</Variable><Separator Symbol>;</Separator Symbol><Normal Text>                </Normal Text><Comment># OUTPUT: «c␤»</Comment><br/>
<Operator>}</Operator><br/>
<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><Operator>/</Operator><Pattern> </Pattern><Variable>$<myname></Variable><Pattern> = </Pattern><Operator>[</Operator><Pattern> </Pattern><Pattern Character Class>\w</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Operator>]</Operator><Pattern> </Pattern><Operator>/</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><Operator>~</Operator><Variable>$<myname</Variable><Operator>></Operator><Normal Text>      </Normal Text><Comment># OUTPUT: «abc␤»</Comment><br/>
<Operator>}</Operator><br/>
<Operator>say</Operator><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><Operator>/</Operator><Pattern> a </Pattern><Operator><(</Operator><Pattern> b </Pattern><Operator>)></Operator><Pattern> c</Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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><Operator>/</Operator><Pattern> </Pattern><Operator><(</Operator><Pattern>a </Pattern><Operator><(</Operator><Pattern> b </Pattern><Operator>)></Operator><Pattern> c</Pattern><Operator>)>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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><Operator>/</Operator><Pattern>a</Pattern><Pattern Special Character>.</Pattern Special Character><Pattern> </Pattern><Pattern Control Flow>|</Pattern Control Flow><Pattern> ab </Pattern><Operator>{</Operator><Normal Text> </Normal Text><Operator>print</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>win</String><String Delimiter>"</String Delimiter><Normal Text> </Normal Text><Operator>}</Operator><Pattern> </Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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><Operator>m</Operator><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/>
<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><Operator>m/</Operator><Pattern Control Flow>^</Pattern Control Flow><Pattern>hello </Pattern><Operator>(</Operator><Pattern>world</Pattern><Operator>)/</Operator><Separator Symbol>;</Separator Symbol><Normal Text>         </Normal Text><Comment># OUTPUT: «False␤»</Comment><br/>
<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><Operator>m/</Operator><Pattern Control Flow>^</Pattern Control Flow><Pattern> </Pattern><String Delimiter>'</String Delimiter><String>hello </String><String Delimiter>'</String Delimiter><Pattern> </Pattern><Operator>(</Operator><String Delimiter>'</String Delimiter><String>world</String><String Delimiter>'</String Delimiter><Operator>)/</Operator><Separator Symbol>;</Separator Symbol><Normal Text>   </Normal Text><Comment># OUTPUT: «True␤»</Comment><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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><Operator>m</Operator><Pattern Modifier>:exhaustive</Pattern Modifier><Operator>/</Operator><Pattern Modifier>:i</Pattern Modifier><Pattern> a </Pattern><Pattern Character Class>\w</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> a</Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> ipv4-octet </Normal Text><Operator>{</Operator><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern> 1</Pattern><Pattern Quantifier>..</Pattern Quantifier><Pattern>3 </Pattern><Operator><?{</Operator><Normal Text> </Normal Text><Variable>$/</Variable><Operator>.</Operator><Data Type>Int</Data Type><Normal Text> </Normal Text><Operator><=</Operator><Normal Text> </Normal Text><Decimal>255</Decimal><Normal Text> </Normal Text><Operator>&&</Operator><Normal Text> </Normal Text><Variable>$/</Variable><Operator>.</Operator><Data Type>Int</Data Type><Normal Text> </Normal Text><Operator>>=</Operator><Normal Text> </Normal Text><Decimal>0</Decimal><Normal Text> </Normal Text><Operator>}></Operator><Pattern> </Pattern><Operator>}</Operator><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Keyword>regex</Keyword><Normal Text> ipv4-octet </Normal Text><Operator>{</Operator><Pattern> </Pattern><Pattern Character Class>\d</Pattern Character Class><Pattern> </Pattern><Pattern Quantifier>**</Pattern Quantifier><Pattern> 1</Pattern><Pattern Quantifier>..</Pattern Quantifier><Pattern>3 </Pattern><Operator><?{</Operator><Normal Text> </Normal Text><Data Type>True</Data Type><Normal Text> </Normal Text><Operator>}></Operator><Pattern> </Pattern><Operator>}</Operator><br/>
<Operator>say</Operator><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><Operator>/</Operator><Pattern> </Pattern><Operator><?</Operator><Keyword>before</Keyword><Pattern> a</Pattern><Operator>></Operator><Pattern> </Pattern><Pattern Control Flow>&&</Pattern Control Flow><Pattern> </Pattern><Pattern Special Character>.</Pattern Special Character><Pattern> </Pattern><Operator>/</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>say</Operator><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><Operator>rx{</Operator><Pattern> abc </Pattern><Pattern Meta Character><[</Pattern Meta Character><Pattern Character>email protected</Pattern Character><Pattern Meta Character>]</Pattern Meta Character><String>ending_letters</String><Pattern Meta Character>></Pattern Meta Character><Pattern> </Pattern><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Operator>s</Operator><Pattern Modifier>:g</Pattern Modifier><Operator>[</Operator><Pattern Character Class>\d</Pattern Character Class><Pattern Quantifier>+</Pattern Quantifier><Pattern> </Pattern><Operator><?</Operator><Keyword>before</Keyword><Pattern> </Pattern><Pattern Character Class>\s</Pattern Character Class><Pattern Quantifier>*</Pattern Quantifier><Pattern> </Pattern><Variable>@units</Variable><Operator>>]</Operator><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/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>sub</Declare Routine><Normal Text> walk</Normal Text><Operator>(</Operator><Variable>\thing</Variable><Operator>,</Operator><Normal Text> </Normal Text><Operator>*</Operator><Variable>@keys</Variable><Operator>)</Operator><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>rw</Property><Normal Text> </Normal Text><Operator>{</Operator><br/>
<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/>
<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><Operator>{</Operator><br/>
<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><Operator>{</Operator><br/>
<Normal Text>            </Normal Text><Variable>$current</Variable><Normal Text> </Normal Text><Operator>:=</Operator><Normal Text> </Normal Text><Variable>$current</Variable><Operator>[</Operator><Variable>$k</Variable><Operator>]</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>        </Normal Text><Operator>}</Operator><br/>
<Normal Text>        </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>            </Normal Text><Variable>$current</Variable><Normal Text> </Normal Text><Operator>:=</Operator><Normal Text> </Normal Text><Variable>$current</Variable><Operator>{</Operator><Variable>$k</Variable><Operator>}</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>        </Normal Text><Operator>}</Operator><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Normal Text>    </Normal Text><Variable>$current</Variable><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Variable>%hash</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>walk</Normal Text><Operator>(</Operator><Variable>%hash</Variable><Operator>,</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>some</String><String Delimiter>'</String Delimiter><Operator>,</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>key</String><String Delimiter>'</String Delimiter><Operator>,</Operator><Normal Text> </Normal Text><Decimal>1</Decimal><Operator>,</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><Operator>)</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><Variable>%hash</Variable><Operator>.</Operator><Normal Text>perl</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Keyword>class</Keyword><Normal Text> </Normal Text><Operator>X::</Operator><Attribute>WithoutLineNumber</Attribute><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Operator>X::</Operator><Attribute>AdHoc</Attribute><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>method</Declare Routine><Normal Text> gist</Normal Text><Operator>(X::</Operator><Attribute>WithoutLineNumber</Attribute><Operator>:</Operator><Attribute>D</Attribute><Operator>:)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Variable>$.payload</Variable><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
<Operator>die</Operator><Normal Text> </Normal Text><Operator>X::</Operator><Attribute>WithoutLineNumber</Attribute><Operator>.</Operator><Normal Text>new</Normal Text><Operator>(</Operator><Normal Text>payload </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>message</String><String Delimiter>"</String Delimiter><Operator>)</Operator><br/>
<Normal Text></Normal Text><br/>
<Operator>{</Operator><Normal Text> </Normal Text><Control Flow>return</Control Flow><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Keyword>CATCH</Keyword><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Control Flow>default</Control Flow><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Variable>$*ERR</Variable><Operator>.say:</Operator><Normal Text> </Normal Text><Operator>.^</Operator><Normal Text>name</Normal Text><Operator>,</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>: </String><String Delimiter>'</String Delimiter><Operator>,</Operator><Normal Text> </Normal Text><Operator>.</Operator><Data Type>Str</Data Type><Normal Text> </Normal Text><Operator>}</Operator><Normal Text> </Normal Text><Operator>}</Operator><Normal Text> </Normal Text><Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> trait_mod</Normal Text><Operator>:</Operator><String Delimiter><</String Delimiter><String>is</String><String Delimiter>></String Delimiter><Operator>(</Operator><Data Type>Routine</Data Type><Normal Text> </Normal Text><Variable>$r</Variable><Operator>,</Operator><Normal Text> </Normal Text><Operator>:</Operator><Variable>$export</Variable><Operator>!)</Operator><br/>
<Normal Text></Normal Text><br/>
<Normal Text>react </Normal Text><Operator>{</Operator><br/>
<Normal Text>    whenever signal</Normal Text><Operator>(</Operator><Normal Text>SIGINT</Normal Text><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>goodbye</String><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>        done</Normal Text><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Normal Text>signal</Normal Text><Operator>(</Operator><Normal Text>SIGINT</Normal Text><Operator>).</Operator><Normal Text>tap</Normal Text><Operator>:</Operator><Normal Text> </Normal Text><Operator>{</Operator><Normal Text> </Normal Text><Operator>say</Operator><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><Operator>}</Operator><Separator Symbol>;</Separator Symbol><Normal Text> </Normal Text><Control Flow>loop</Control Flow><Normal Text> </Normal Text><Operator>{}</Operator><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>method</Declare Routine><Normal Text> base-repeating</Normal Text><Operator>(</Operator><Data Type>Rational</Data Type><Operator>:</Operator><Attribute>D</Attribute><Operator>:</Operator><Normal Text> </Normal Text><Data Type>Int</Data Type><Operator>:</Operator><Attribute>D</Attribute><Operator>()</Operator><Normal Text> </Normal Text><Variable>$base</Variable><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Decimal>10</Decimal><Operator>)</Operator><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>multi</Declare Routine><Normal Text> </Normal Text><Declare Routine>sub</Declare Routine><Normal Text> prefix</Normal Text><Operator>:<-->(</Operator><Variable>$x</Variable><Normal Text> </Normal Text><Keyword>is</Keyword><Normal Text> </Normal Text><Property>rw</Property><Operator>)</Operator><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/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<Declare Routine>multi</Declare Routine><Normal Text> MAIN</Normal Text><Operator>(</Operator><Data Type>Bool</Data Type><Normal Text> </Normal Text><Operator>:</Operator><Variable>$man</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    run </Normal Text><Variable>$*EXECUTABLE</Variable><Operator>,</Operator><Normal Text> </Normal Text><String Delimiter>'</String Delimiter><String>--doc</String><String Delimiter>'</String Delimiter><Operator>,</Operator><Normal Text> </Normal Text><Variable>$*PROGRAM</Variable><Separator Symbol>;</Separator Symbol><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$file</Variable><Operator>.</Operator><Normal Text>lines </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$line</Variable><Normal Text> </Normal Text><Operator>{</Operator><br/>
<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/>
<Normal Text></Normal Text><br/>
<Normal Text>    </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Variable>$pairing</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$result</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$line</Variable><Operator>.</Operator><Normal Text>split</Normal Text><Operator>(</Operator><String Delimiter>'</String Delimiter><String> | </String><String Delimiter>'</String Delimiter><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Variable>$p1</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$p2</Variable><Operator>)</Operator><Normal Text>          </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$pairing</Variable><Operator>.</Operator><Normal Text>words</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Variable>$r1</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$r2</Variable><Operator>)</Operator><Normal Text>          </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$result</Variable><Operator>.</Operator><Normal Text>split</Normal Text><Operator>(</Operator><String Delimiter>'</String Delimiter><String>:</String><String Delimiter>'</String Delimiter><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Normal Text>    </Normal Text><Variable>%sets</Variable><Operator>{</Operator><Variable>$p1</Variable><Operator>}</Operator><Normal Text> </Normal Text><Operator>+=</Operator><Normal Text> </Normal Text><Variable>$r1</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Variable>%sets</Variable><Operator>{</Operator><Variable>$p2</Variable><Operator>}</Operator><Normal Text> </Normal Text><Operator>+=</Operator><Normal Text> </Normal Text><Variable>$r2</Variable><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Variable>%matches</Variable><Operator>{</Operator><Variable>$p1</Variable><Operator>}++</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><Normal Text> </Normal Text><Control Flow>else</Control Flow><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Variable>%matches</Variable><Operator>{</Operator><Variable>$p2</Variable><Operator>}++</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<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><Operator>{</Operator><br/>
<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><Operator>{</Operator><Variable>$n</Variable><Operator>}</Operator><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/>
<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><Operator>{</Operator><Variable>$n</Variable><Operator>}</Operator><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/>
<Normal Text>    </Normal Text><Operator>say</Operator><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/>
<Operator>}</Operator><br/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><Normal Text> </Normal Text><String Delimiter>"</String Delimiter><String>Math: </String><String (interpolated)>{ </String (interpolated)><Decimal>1</Decimal><String (interpolated)> </String (interpolated)><Operator>+</Operator><Normal Text> </Normal Text><Decimal>2</Decimal><String (interpolated)> }</String (interpolated)><String Delimiter>"</String Delimiter><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Operator>say</Operator><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/>
<Normal Text></Normal Text><br/>
<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><Operator>.</Operator><Normal Text>get</Normal Text><Operator>.</Operator><Normal Text>words</Normal Text><Separator Symbol>;</Separator Symbol><br/>
<Normal Text></Normal Text><br/>
<Control Flow>for</Control Flow><Normal Text> </Normal Text><Variable>$file</Variable><Operator>.</Operator><Normal Text>lines </Normal Text><Operator>-></Operator><Normal Text> </Normal Text><Variable>$line</Variable><Normal Text> </Normal Text><Operator>{</Operator><br/>
<Normal Text>    </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Variable>$pairing</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$result</Variable><Operator>)</Operator><Normal Text> </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$line</Variable><Operator>.</Operator><Normal Text>split</Normal Text><Operator>(</Operator><String Delimiter>'</String Delimiter><String> | </String><String Delimiter>'</String Delimiter><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<Normal Text>    </Normal Text><Variable Storage>my</Variable Storage><Normal Text> </Normal Text><Operator>(</Operator><Variable>$p1</Variable><Operator>,</Operator><Normal Text> </Normal Text><Variable>$p2</Variable><Operator>)</Operator><Normal Text>          </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Variable>$pairing</Variable><Operator>.</Operator><Normal Text>split</Normal Text><Operator>(</Operator><String Delimiter>'</String Delimiter><String> </String><String Delimiter>'</String Delimiter><Operator>)</Operator><Separator Symbol>;</Separator Symbol><br/>
<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><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Operator>say</Operator><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/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<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><Operator>{</Operator><br/>
<Normal Text>        </Normal Text><Operator>say</Operator><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/>
<Normal Text>    </Normal Text><Operator>}</Operator><br/>
<Operator>}</Operator><br/>
