-module('Main').
-export([main/1]).

main(_) ->
    {ok, [X, Y]} = io:fread("", "~d ~d"),
    %% Aを鶴の数、Bを亀の数とする
    Answers = [{A, B} ||
              A <- lists:seq(0, 100),
              B <- lists:seq(0, 100),
              A + B =:= X,
              2 * A + 4 * B =:= Y],
    case length(Answers) > 0 of
        true ->
            io:format("Yes~n");
        false ->
            io:format("No~n")
    end,
    halt().




