Факториал без цикла

Функция ФакториалБезЦикла(size=100) экспорт
	перем f;
	
	arr=new array(size);
	
	
	ЗаписьXML = Новый ЗаписьXML;
	ЗаписьXML.УстановитьСтроку();
	//конвертация массива
	СериализаторXDTO.ЗаписатьXML(ЗаписьXML, arr);
	МассивСтр = ЗаписьXML.Закрыть();
	//превращаем массив в таблицу
	Шапка="<Array xmlns=""http://v8.1c.ru/8.1/data/core"" xmlns:xs=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">";
	Замена="<ValueTable xmlns=""http://v8.1c.ru/8.1/data/core"" xmlns:xs=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">
	       |<column>
	       |<Name xsi:type=""xs:string"">N</Name>
		   |<ValueType>
		   |	<Type>xs:decimal</Type>
		   |	<NumberQualifiers>
		   |		<Digits>0</Digits>
		   |		<FractionDigits>0</FractionDigits>
		   |		<AllowedSign>Any</AllowedSign>
		   |	</NumberQualifiers>
		   |</ValueType>
	       |</column>";
	МассивСтр=СтрЗаменить(МассивСтр,Шапка,Замена); 
	Замена="<row>
		   |<Value xsi:type=""xs:decimal"">1</Value>
	       |</row>";
    МассивСтр=СтрЗаменить(МассивСтр,"<Value xsi:nil=""true""/>",Замена);
	МассивСтр=СтрЗаменить(МассивСтр,"Array","ValueTable");
	
	
	//Читаем таблицу значений из XML    
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.УстановитьСтроку(МассивСтр);
    тз = СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
	
	Текст="ВЫБРАТЬ
	      |	vt.N КАК N,
	      |	АВТОНОМЕРЗАПИСИ() КАК j
	      |ПОМЕСТИТЬ T
	      |ИЗ
	      |	&Параметр КАК vt
	      |;
	      |
	      |////////////////////////////////////////////////////////////­////////////////////
	      |ВЫБРАТЬ
	      |	T.N КАК N,
	      |	T.j КАК j
	      |ИЗ
	      |	T КАК T";
	запрос=новый запрос(Текст);
	запрос.МенеджерВременныхТаблиц=новый МенеджерВременныхТаблиц;
	запрос.Параметры.Вставить("Параметр",тз);
	arr=запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("j");
	
	Выполнить("f="+СтрСоединить(arr,"*"));
	возврат f;
КонецФункции