-- full adder
entity FA is port(
	CIN,A,B  : in BIT;
	FOUT,COUT : out BIT);
end FA;

architecture BEHAVIOR of FA is
begin
	FOUT <= (A xor B) xor CIN;
	COUT <= ((A and B) or ((A or B) and CIN)) ;
end BEHAVIOR;