#!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");