#        1         2
#2345678901234567890
print"$^F$[$[$^F"

##</code><code>##

@foo = split' ',scalar localtime;
$bar = pop @foo;
print ++$bar;