function msg = huffman_encode(T,a)

	% inizializza il messaggio
	msg = [];

	% codifica simbolo per simbolo
	for i = 1:numel(a)
		s = a(i);
		
		% inizializza la parola di codice
		c = [];

		% finché non arriviamo alla radice dell'albero
		while ~isequal(T(s).root,[])

			% prependi il bit di questo ramo alla parola di codice
			c = [T(s).bit,c];

			% risali di un livello
			s = T(s).root;
		end
		
		% appendi la parola al messaggio
		msg = [msg,c];
	end
end
