[

define_tag:'lp_math_octetToDec',
	-description='Returns a base10 integer given an array of integer octets.',
	-priority='replace',
	-required='bytes', -copy;

	if: #bytes->type != 'array';	
		#bytes = (array: (integer: #bytes));
	/if;

	local:'return' = string;
	local:'base2' = string;
	iterate: #bytes, local:'byte';
		#base2 = (lp_math_dectobin: (integer:#byte));
		if: #base2->size % 8 > 0;
			#base2 = (lp_string_pad: #base2, (#base2->size + (8 - (#base2->size % 8))) ,'0');
		/if;
		loop: -from=0, -to=((lp_integer_bytes: (integer: #byte)) - 1);
			#return += #base2->(substring: (loop_count * 8) + 1, 8);
		/loop;
	/iterate;
	return: (lp_math_bintodec: #return);

/define_tag;

]