m@main=getLine>>=print.f.map read.words>>m
f x=sum[1|2*maximum x<sum x]