Шла весна. Ничего не предвещало новых новостей, как тут одна влюблённая пара Васи и Наташи решила поженится. Они уже давно встречаются, вот и решили наконец-то сделать это. Время решили не терять и уже 2 октября должна была состояться свадьба. Итак, почти всё было готово, оставалось только пригласить гостей на свадьбу. Ох, и сллжная же это процедура… Кто-то - придёт, хто-то - нет, а так хотелось хотя бы приблизительно знать, сколько же придёт гостей? Поэтому и решили опросить приглашённых: придёт ли тот на свадьбу. Конечно же все отвечали "ДА", но не все именно так думали. Вот и Наташа с Василием решили придумать как узнать количество людей, которые точно придут. Известно, что у каждого человека есть степень ответственности - \textbf{x}\[\textbf{i}\], то есть с вероятностью \textbf{x}\[\textbf{i}\] он всегда держит свое слово. По этим данным Вам необходимо найти вероятность того, что на свадьбу придёт ровно \textbf{К} гостей. \InputFile Первая строка содержит количество тестов \textbf{Т}. В последующих строках описаны сами тесты. В первой строке каждого теста записано два целых числа \textbf{N} и \textbf{К}, где \textbf{N} - количество приглашённыx (\textbf{0} ≤ \textbf{N} ≤ \textbf{100}, \textbf{0} ≤ \textbf{K} ≤ \textbf{N}). В последующих \textbf{N} строках каждого теста заданы вероятности \textbf{x}\[\textbf{i}\] (\textbf{0} ≤ \textbf{x}\[\textbf{i}\] ≤ \textbf{1}). \OutputFile Для каждого теста Вам необходимо вывести в отдельной строке искомую вероятность с \textbf{6} цифрами после запятой.