function m=m36(n)
q=zeros(64,1);
q(1)=n;
for i=1:35
 q(i+1)=floor(q(i)/2);
end 
m=zeros(6,6);
for i=0:5
 for j=1:6
  m(i+1,j)=(-1)^q(6*i+j);
 end
end
end
