{
TASK:string
LANG:Pascal
}
{
aba    aa
bab <- ab
bbb    3
bba
abb ---------> 5
}
var s,a:String;
    n:Longint;
Begin
  ReadLn(s);
  ReadLn(a);
  ReadLn(n);
  WriteLn(abs(n*n-Length(s)*Length(s))mod 1000000);
End.