const maxn = 1025;

var f:text;
    n,m,s,i,j,sol:longint;
    a:array[1..maxn]of longint;
    st:array[0..maxn]of longint;

procedure readdata;
begin
   assign(f,'oite.in');
   reset(f);
   readln(f,n,m);
   for i:=1 to n do
   begin
      read(f,a[i]);
   end;
   close(f);
end;

procedure back(k:longint);
var i:longint;
begin
   if k>4 then
   begin
      if s=m then inc(sol);
   end
      else
   begin
      for i:=st[k-1]+1 to n do
      begin
         if a[i]+s<=m then
         begin
            st[k]:=i;
            s:=s+a[i];
            back(k+1);
            s:=s-a[i];
         end;
      end;
   end;
end;

procedure solve;
begin
   st[0]:=0;
   s:=0;
   sol:=0;
   back(1);
end;

procedure writedata;
begin

end;

begin
   readdata;
   solve;
   writedata;
end.