program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
s:string;
n,z,i:integer;
result:boolean;

begin
  Readln(s);
  val(s[1],n,z);
  if ( not (n in [1..9])) or ( z > 0) then
  begin
  writeln('False');
  readln;
  exit;
  end;

  if length(s)-1-n<>0 then
  begin
  writeln('False');
  readln;
  exit;
  end;

  for i:=2 to Length(s) do
  begin
  Val(s[i],n,z);
  if z = 0 then
  begin
    Writeln('False');
    Break;
  end;
  if (i = Length(s)) then Writeln('True');
  end;
  readln;
end.