
        return $final unless (%*ENV<POSTPROCESSING>:exists and %*ENV<POSTPROCESSING> == 1);
        use Text::MiscUtils::Layout;
        my $width = %*ENV<WIDTH> // 80; #$!current.source-data<line-width> // 80;
        my $end-zone = %*ENV<LINE-WIDTH> // 6;#$!current.source-data<line-width> // 6;
        $width = 80 if $width < $end-zone;

#        my $remaining = $final;
        my @lines;
#        my Bool $hyphen = False;
#        my Bool $nl = False;
#        while ( $remaining ~~ / ^
#                  (\v)
#                | ( .**{0..$width} \v )
#                | ( .**{ $width - $end-zone } \S+ ) \s{ $nl = True }
#                | ( .**{ $width - 1 } ) { $hyphen = $nl = True }
#                / ) {
#            my $l = ~$/[0];
#            $remaining = ~$/.postmatch;
#            $l ~= '-' and ( $hyphen = False ) if $hyphen;
#            $l ~= "\n" and ( $nl = False ) if $nl;
#            @lines.push: $l
#        }
#        @lines.push( $remaining);
        for $final.lines {
            @lines.append: text-wrap($width, $_)
        }
        @lines.join("\n")