read a;for i in $a;{ d[i]+=$i\ ;}
echo ${d[@]}|{
read a b c
echo $[(c+=b+=a)<b*4-a*5?(a+c)/4-(c%6==4):(b+c)/5]
}