Koloss

Z = [1 9 2 3 4 5 2 7 2 5 2 3 9 6 5 4 2 5 7 3 5 6 2 7 6 5 2 5 3 6 2 1 9 2 3 4 5 2 7 2 5 2 3 9 1 9 2 3 4 5 2 7 2 5 2 3 9 1 9 2 3 4 5 2 7 2 5 2 3 9 3]
wmax=7;
Y = Z(Z>wmax);
Z(Z>wmax)=[];
for i=2:length(Z)
  Z(i) = (Z(i)+Z(i-1))/2
endfor
while length(Z)>8
  A=Z(1:8);
  A = reshape(A,[4,2])
  Z(1:8)=[];
endwhile
q = 8 - length(Z)
Q = zeros(1,q)
F =[Z,Q]
X = reshape(F,[4,2])