// dfmt off
T lread(T=long)(){return readln.chomp.to!T;}T[] lreads(T=long)(long n){return iota(n).map!((_)=>lread!T).array;}
T[] aryread(T=long)(){return readln.split.to!(T[]);}void arywrite(T)(T a){a.map!text.join(' ').writeln;}
void scan(L...)(ref L A){auto l=readln.split;foreach(i,T;L){A[i]=l[i].to!T;}}alias sread=()=>readln.chomp();
void dprint(L...)(lazy L A){debug{auto l=new string[](L.length);static foreach(i,a;A)l[i]=a.text;arywrite(l);}}
static immutable MOD=10^^9+7;alias PQueue(T,alias l="b<a")=BinaryHeap!(Array!T,l);import std, core.bitop;
// dfmt on

void main()
{
    auto S = sread();
    long N = S.length;
    if (N == 1)
    {
        writeln(S);
        return;
    }
    auto cnt = new long[][](10, 10);
    foreach (x; 1 .. S.to!long + 1)
    {
        auto s = x.text;
        // dprint(s[0] - '0', s[$ - 1] - '0');
        cnt[s[0] - '0'][s[$ - 1] - '0']++;
    }
    long ans;
    foreach (i; 1 .. 10)
        foreach (j; 1 .. 10)
        {
            // dprint(i, j, cnt[i][j], cnt[j][i]);
            ans += cnt[i][j] * cnt[j][i];
        }
    writeln(ans);
}
