-@blocks = map [ map "$_\n", @$_ ], @blocks;
-@contexts = map [ map "$_\n", @$_ ], @contexts;
+for my $block (@blocks) {
+ $_ .= "\n" for @$block[0, 1];
+}
+for my $cxt (@contexts) {
+ $_ .= "\n" for @$cxt[0, 1];
+}
+
+sub contextify {
+ my ($cxt, $active, $exp, @items) = @_;
+ return $exp unless $active;
+ if ($cxt eq 'v') {
+ return [ ];
+ } elsif ($cxt eq 's') {
+ return [ $cxt, @$exp ];
+ } else {
+ return [ @items, @$exp ];
+ }
+}
+
+my $integer = 0;
+my $items = 0;