From c9396b06f0a3662eef65280499591d968bbb578c Mon Sep 17 00:00:00 2001
From: threadless-screw <threadless-screw@mailbox.org>
Date: Sun, 13 Oct 2019 22:11:17 +0200
Subject: wk29ch1p6

---
 challenge-029/ozzy/perl6/ch1.p6 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/challenge-029/ozzy/perl6/ch1.p6 b/challenge-029/ozzy/perl6/ch1.p6
index a888ab5574..52c4dcb7be 100644
--- a/challenge-029/ozzy/perl6/ch1.p6
+++ b/challenge-029/ozzy/perl6/ch1.p6
@@ -1,16 +1,14 @@
 #!/usr/bin/env perl6
 
-# wk21ch1 - Write a script to demonstrate brace expansion.
+# wk29ch1 - Write a script to demonstrate brace expansion.
 
 sub MAIN ( Str $string = 'Perl {Daily,Weekly,Monthly,Yearly} Challenge' ) {
 
     grammar G {
-
         token TOP           { ( <h> \{ <alt>+ % ',' \} <t> )+ }
         token h             { <[\w\d\s]>* }
         token alt           { <[\w\d\s]>+ }
         token t             { <[\w\d\s]>* }
-
     }
 
     my @m = G.parse($string)[0];
-- 
cgit