-- Architecture block

type seqArray is array (integer range <>) of integer;
shared variable sequence : seqArray( 0 to 7 ) := ( 16#1#, 16#2#, 16#4#, 16#8#, 16#e#, 16#d#, 16#b#, 16#7# );


-- Process block
for i in sequence'range loop
	A<= std_logic_vector( to_unsigned( sequence(i), 4 ) );
	wait for 20ns;
end loop;