[

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

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

	local:'return' = array;
	local:'base2' = string;
	iterate: #integer, local:'i';
		#base2 = (lp_math_dectobin: (integer:#i));
		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: #i)) - 1);
			#return->(insert: (lp_math_bintodec: #base2->(substring: (loop_count * 8) + 1, 8) ));
		/loop;
	/iterate;
	return: #return;

/define_tag;

]