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