Data commit

Task/Here-document/Raku/here-document-1.raku

@@ -0,0 +1,6 @@
+my $color = 'green';
+say qq :to 'END';
+    some line
+    color: $color
+    another line
+    END

Task/Here-document/Raku/here-document-2.raku

@@ -0,0 +1,11 @@
+my $contrived_example = 'Dylan';
+sub freewheelin() {
+        print q :to 'QUOTE', '-- ', qq :to 'AUTHOR';
+          I'll let you be in my dream,
+            if I can be in yours.
+        QUOTE
+                Bob $contrived_example
+                AUTHOR
+}
+
+freewheelin;

Task/Here-document/Raku/here-document-3.raku

@@ -0,0 +1,6 @@
+my @a = <1 2 3 4>;
+say Q :array :to 'EOH';
+    123 \n '"`
+        @a$bc
+        @a[]
+    EOH