#!usr/bin/env perl

use strict;
use warnings;
use Term::ANSIColor;

sub colorize {
    my($color, $string) = @_;
    return color($color) . $string . color('reset');
}

use constant COUNTER_STATE_VAR => colorize(bright_blue => '(COUNTER_STATE_VAR)');
use constant COUNTER_START_VAR => colorize(bright_blue => '(COUNTER_START_VAR)');

my $desc         = colorize('bright_green' => '|desc|');
my $context_desc = colorize('bright_green' => '|context_desc|');
my $restart      = colorize('bright_green' => '|restart|');

my $var = <<"HERE";
action=setwpos %u +1 ($desc) ; shift ($context_desc) @{[COUNTER_START_VAR]} ; shift ($context_desc) @{[COUNTER_STATE_VAR]} ; eval @{[COUNTER_STATE_VAR]} ( \$counter=@{[COUNTER_STATE_VAR]}; ++\$counter; ) ; add ($context_desc) @{[COUNTER_START_VAR]} ; add ($context_desc) @{[COUNTER_STATE_VAR]} ; assign @{[COUNTER_STATE_VAR]} 0 ; set ($context_desc) $restart
HERE

print colorize(bright_red => "<<<<<\n") . $var . colorize(bright_red => ">>>>>\n");


##</code><code>##

<<<<<
action=setwpos %u +1 (|desc|) ; shift (|context_desc|) (COUNTER_START_VAR) ; shift (|context_desc|) (COUNTER_STATE_VAR) ; eval (COUNTER_STATE_VAR) ( $counter=(COUNTER_STATE_VAR); ++$counter; ) ; add (|context_desc|) (COUNTER_START_VAR) ; add (|context_desc|) (COUNTER_STATE_VAR) ; assign (COUNTER_STATE_VAR) 0 ; set (|context_desc|) |restart|
>>>>>