Букашки из одной маленькой банановой республики очень любят собираться на симпозиумы. На симпозиуме должно быть как можно больше букашек, потому что иначе на них никто не обратит внимания. Во время симпозиума букашки садятся с одной стороны за длинный стол. Однако очень важные букашки не хотят сидеть рядом с букашками, важность которых хотя бы в два раза меньше. Поэтому организаторы симпозиума (самые старые букашки) хотят понять, кого нужно приглашать, а кого нет. Помогите организаторам пригласить как можно больше букашек так, чтобы их можно было посадить за стол. \InputFile В первой строке входного файла записано натуральное число \textbf{N} (\textbf{1} ≤ \textbf{N} ≤ \textbf{1000}). Во второй строке перечислены важности всех букашек \textbf{a_i} (\textbf{1} ≤ \textbf{a_i} ≤ \textbf{10^9}). \OutputFile Выведите максимальное количество букашек, которое можно пригласить на симпозиум.