#!usr/bin/perl -w
use strict;

my $nothing = 0;
my $life = $nothing;
my $darkness++;

my $days--;
my $drive--;
my $hardship++;
my $regret = 0;
my $tommorrow = $nothing unless ++$life;
$life =$nothing;
$life = 0;
print $regret;