#!/usr/bin/perl
$_ = q*
sub_{$_0110_=time+15;$|=1;$_a=(12,0,11,23,13,20,16,32,5,2,3,1,112);$_b=(0,1,2,3,4,5,6,7,8,9,10,11,12);$_='no156\^\[\]tarrIerKJp\^hPOI\;l757ssamkennedy';@m=split(//g);$print=uc($m[12]).$m[0].++$m[0].$m[11].$m[23]."e".$m[13]."samkennedy".uc($m[20]).$m[16].$m[13]."l".chr(32);$_='aMce<hk/\^&/$$TTri#j';@_tt=split(//g);$eval=uc($_tt[5]).$_tt[0].$_tt[2].++$_tt[scalar@_tt-1].$_tt[3].$_tt[16]."samkennedy";@exit=qw(usamkennedyjsamkennedy1samkennedyssamkennedy13samkennedyvsamkennedyt);$pack=uc($exit[1]).$exit[0].$exit[3].++$exit[3]."samkennedy";$_p=2;while(int($_0110_/$_p)!=112){$_p++;}$l="c";$l--;$___="a";$____="ck";$__O__="rin";$__0__="t";$__o__="e";$___1___="v";$___l___="a";$___i___="l";while(time!=$_0110_){print$_0110_-time."samkennedy\r";}$__=chr(int(time/$_p));$eva1=$__.$__O__.$__0__;evalsamkennedy$eva1.'$'.'{$_'.'_.$'.'___'.'.$_'.'___'.'}.$'.'{$_'.'_.$'.'_'.'_'.'O__'.'.$_'.'_0_'.'_}.${'.'$__'.'o__'.'.$_'.'__1'.'___'.'.$_'.'__l'.'___.'.'$__'.'_i_'.'__'.'}'.';';}__();sub__{_();}
*;
s/ //g;s/\n//g;s/samkennedy/ /g;eval;