dwarring/gist:6895724

## gistfile1.pl
use v6;
sub G($s) {gather $s()}
sub T($s) {take $s}

say qq{{
<html>
   <body>
       <h1>Green Bottles...</h1>
       {G { my $n = 10;
          while $n > 0 {my $m = $n--; T qq{
             <blockquote>
                 <em> $m </em> green bottles standing on the wall,
                 <em> $m </em> green bottles standing on the wall
                 <br/>
                 and if one green bottle should accidently fall...
                 <br/>
                 there'd be <em> $n </em> green bottles standing on the wall
             </blockquote>
          }
       }}}
    </body>
</html>
}};
	use v6;
	sub G($s) {gather $s()}
	sub T($s) {take $s}

	say qq{{
	<html>
	<body>
	<h1>Green Bottles...</h1>
	{G { my $n = 10;
	while $n > 0 {my $m = $n--; T qq{
	<blockquote>
	<em> $m </em> green bottles standing on the wall,
	<em> $m </em> green bottles standing on the wall
	<br/>
	and if one green bottle should accidently fall...
	<br/>
	there'd be <em> $n </em> green bottles standing on the wall
	</blockquote>
	}
	}}}
	</body>
	</html>
	}};