根据已给出的全加器的VHDL程序，试写出一个4位逐位进位全加器的VHDL程序。