use feature 'say';
$|=1;
($x,$y)=glob<>;
say 4;
say "$x $y $y $y";
$t=<>+0;
say $t;