{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}
program Project1;

{$APPTYPE CONSOLE}

const inp='snake.dat';
      outp='snake.sol';

var f:text;
    x,y:Integer;
    Len:Cardinal;

procedure readdata;
begin
assign (f,inp);
reset (f);
readln (f,x,y);
close (f);
end;

procedure writedata;
begin
assign (f,outp);
rewrite (f);
Writeln (f,len);
close (f);
end;

procedure work;
var x1,y1:Integer;
    gorizont:Boolean;
    q1,q2,q3,min:Cardinal;
begin

Len:=0;
x1:=0;
y1:=0;

while (x1<>x) or (y1<>y) do
  begin

  if len=0 then
      begin
      min:=x*x+(y-1)*(y-1);
      q1:=(x-1)*(x-1)+y*y;
      if q1<min then min:=q1;
      q2:=x*x+(y+1)*(y+1);
      if q2<min then min:=q2;
      q3:=(x+1)*(x+1)+y*y;
      if q3<min then min:=q3;

      if q1=min then
        begin
        x1:=1;
        y1:=0;
        gorizont:=False;
        end
      else
      if q2=min then
        begin
        x1:=0;
        y1:=-1;
        gorizont:=True;
        end
      else
      if q3=min then
        begin
        x1:=-1;
        y1:=0;
        gorizont:=False;
        end
      else
        begin
        x1:=0;
        y1:=1;
        gorizont:=True;
        end;

      Inc (Len);
      end
  else
      begin

      if gorizont then
        begin
        min:=(x-x1-1)*(x-x1-1)+y*y;
        q1:=(x-x1+1)*(x-x1+1)+y*y;
        if q1<min then min:=q1;

        if min=q1 then
          x1:=x1-1
        else
          x1:=x1+1;
          
        gorizont:=False;
        end
      else
        begin
        min:=x*x+(y-y1-1)*(y-y1-1);
        q1:=x*x+(y-y1+1)*(y-y1+1);
        if q1<min then min:=q1;

        if min=q1 then
          y1:=y1-1
        else
          y1:=y1+1;

        gorizont:=True;
        end;

      Inc (Len);        
      end;

  end;

end;

begin

readdata;

work;

writedata;

end.