var n,a,b:longint;
    d:boolean;
{>procedure<}
function ireductibil(x,y:longint):boolean;
          var a,b,i,ja,jb,jab,c:longint;
              va,vb,vab:array[1..10000] of integer;
          begin
               for i:=1 to a do if a mod i=0 then begin
                   ja:=ja+1;
                   va[ja]:=i;
               end;
               for i:=1 to b do if a mod i=0 then begin
                   jb:=jb+1;
                   vb[jb]:=i;
               end;
               for i:=1 to ja do
                   for c:=1 to jb do if va[i]=vb[c] then begin
                       jab:=jab+1;
                       vab[jab]:=va[i];
                   end;
               c:=0;
               for i:=1 to jab do if vab[i]>c then c:=vab[i];
               if vab[i]>1 then ireductibil:=false
               else ireductibil:=true;
          end;
begin
     readln(a);
     readln(b);
     d:=ireductibil(a,b);
     writeln(d);
     readln;
end.