var e:longint;
    a,b:1..1415;
    s:1..2000000;
    ok:boolean;
    f,g:text;
procedure verif(x:longint;p:byte;var sem:boolean);
begin
if x<>0 then begin
    if (p<>1)and(p<>0)then sem:=false else verif(x div 10,x mod 10,sem);
    end else
    if(p<>1)and(p<>0)then sem:=false else sem:=true;
end;
BEgin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
readln(f,a,b);
a:=5;
b:=11;
s:=a*b;
e:=s;
repeat
verif(e,0,ok);
e:=e+s;
until ok;
write(g,e-s);
close(g);
end.