program prob4
    implicit none
    integer(16)::N, M
    integer(16)::i,j,ans,com
    integer::v(17)
    read(*,*) N

    v = 0
    M = N
    do i = 16, 0, -1
        if(N >= 10**i) then
            v(i+1) = N/(10**i)
            N = N - N/(10**i) * 10**i
        end if
    end do

    ans = sum(v)
    do i = 17, 1, -1
        if(v(i) > 0)then
            j = i
            exit
        end if
    end do

    if(M/10 > 0)then
        if( M < 100)then
            if(M/10 > 2) then
                write(*,*) M/10 + 8
            else
                write(*,*) 9
            end if
            stop
        else
            if(v(j) + v(j-1) > 9) then
                ans = v(j) + v(j-1) + 9*(j-2)
                com = 0
                do i = 1, j-2
                    com = v(i)*10**(i-1) + v(j-1)*10**(j-2) + v(j)*10**j
                end do
                if(com > M)then
                    ans = ans - 1
                end if
            else if(v(j) > 1)then
                ans = v(j) - 1 + 9*(j-1)
            else
                if(sum(v) - 1 < 9*(j-1))then
                    ans = 9*(j-1)
                end if
            end if
        end if
    end if

    
    write(*,*) ans
    stop
end program