#!/usr/bin/perl
open(F,"llll");
while(<F>){
	print $count=$_;
}
close(F);
open(F,">llll");
if($count==4){
	print F "0";
}else{
	print F $count+1;
}
close(F);
