process(iW, sStanje) begin
    case sStanje is
        when S0 =>
            case iW is
                when "00" => sSledece_Stanje <= S2; oZ <= '0';
                when "01" => sSledece_Stanje <= S1; oZ <= '0';
                when "10" => sSledece_Stanje <= S2; oZ <= '1';
                when others => sSledece_Stanje <= S1; oZ <= '0';
            end case;

        when S1 =>
            case iW is
                when "00" => sSledece_Stanje <= S2; oZ <= '0';
                when "01" => sSledece_Stanje <= S0; oZ <= '1';
                when "10" => sSledece_Stanje <= S1; oZ <= '0';
                when others => sSledece_Stanje <= S1; oZ <= '0';
            end case;

        when S2 =>
            case iW is
                when "00" => sSledece_Stanje <= S0; oZ <= '0';
                when "01" => sSledece_Stanje <= S0; oZ <= '1';
                when "10" => sSledece_Stanje <= S1; oZ <= '1';
                when others => sSledece_Stanje <= S1; oZ <= '0';
            end case;

        end case;
    end process;