LIBRARY IEEE;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
USE IEEE.STD_LOGIC_1164.all;

ENTITY div10 IS
	PORT(	Input		: IN 	STD_LOGIC;
			Output		: OUT	STD_LOGIC);					
END div10;

ARCHITECTURE a OF div10 IS
	SIGNAL CountTen 	: STD_LOGIC_VECTOR(3 DOWNTO 0);

BEGIN
	
	PROCESS (Input)
	BEGIN
		IF(Input'event AND Input = '1')then
			IF(CountTen = "0111") THEN
				Output <= '1';
				CountTen <= "0000";
			ELSE
				Output <= '0';
				CountTen <= CountTen + 1;
			END IF;
		END IF;
	END PROCESS;
END a;