Районно-городские командные соревнования

Для развития математических способностей у студентов, предлагается следующее упражнение. Дается список, состоящий из положительных случайных неповторяющихся целых чисел. Длина списка от 2 до 15. Требуется сосчитать, сколько в списке чисел, равных некоторому удвоенному числу из этого же списка. Вы должны написать программу, которая поможет выставить студентам оценки. Эта программа должна просматривать предлагаемые списки и выводить для каждого корректный ответ. Например, дан список

1 4 3 2 9 7 18 22

Ваша программа должна ответить 3, так 2 равно удвоенной 1, 4 равно `2\ *\ 2` и `18\ =\ 9\ *\ 2`.

Входной файл состоит из одного или более списков чисел. В одной строке содержится один список. Каждый список содержит от 2 до 15 различных положительных целых. Все числа не превосходят 99. Каждая строка завершается нулем, который не рассматривается как часть списка. Строка с единственным числом `-1` означает конец файла. Ниже приводится пример, содержащий три отдельных списка. Некоторые списки могут вообще не содержать удвоенных значений.

Выходной файл должен состоять из строк, по одной для каждого входного списка, содержащих количество чисел, являющихся удвоенными значениями других.

1 4 3 2 9 7 18 22 0
2 4 8 10 0
7 5 11 13 1 3 0
-1

3
2
0