var s,i,n,m : longint;
begin
readln(m,n);
if m>n then
s:=m;
m:=n;
n:=s
end;
s:=0;
for i:= m to n do if i mod 12=0 then s:=s+i;
writeln(s);
end.
