sub f{sort{$b-$a}@_}
@a=f glob<>;
$%=pop@a;
$_-=$%for@a;
for(1,2){
	@a=f@a;
	$==(f$a[0]/3,$a[1])[1];
	$%+=$=;
	$a[0]-=$=*3;
	$a[1]-=$=
}
print$%+=(f@a)[0]/5