program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  st = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i, j : Integer;
  s : String;
  l : Integer;
  max : Integer;
  num : Integer;
  s2 : array [1..10000] of Byte;
  ss : array [1..1000000] of Byte;
  sk : array [1..1000000] of Byte;
  p2 : Integer;
  len : Integer;
  sum : Integer;
  //wid : Integer;
  b : Boolean;
  lt : Integer;
begin
  readln(s);
  l := length(s);

  max := -1;
  for i :=1 to l do
  begin
    num := pos(s[i], st);
    ss[i] := num - 1;
    if num > max then max := num;
  end;

  if max < 2 then max := 2;

  b := false;

  for i := max to 36 do
  begin

    move(ss, sk, l);
    lt := l;


    repeat

      len := 1;
      FillChar(s2, 10000, 0);
      for j := 1 to lt do
      begin
        p2 := 1;
        sum := sk[j];
        while true do
        begin
          s2[p2] := s2[p2] + sum;
          if s2[p2] - i >= 0 then
          begin
            s2[p2] := s2[p2] - i;
            sum := 1;
            p2 := p2 + 1;
            if p2 > len then len := p2;
          end
          else break;
        end;
      end;
      move(s2, sk, len);
      lt := len;
    until len = 1;

    if (s2[1] mod (i - 1)) = 0 then
    begin
      b := true;
      break;
    end;

  end;

  if b then writeln(i)
  else writeln('No solution.');

  readln;
  readln;


  { TODO -oUser -cConsole Main : Insert code here }
end.