function retval = progression()
p=18/37;
q=1-p;
%   L   W   1   2   4   8  10  12  14  16  18  20
m = \
[ [ 1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0]; %  L
  [ 0,  1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0]; %  W
  [ 0,  p,  0,  q,  0,  0,  0,  0,  0,  0,  0,  0]; %  1
  [ 0,  p,  0,  0,  q,  0,  0,  0,  0,  0,  0,  0]; %  2
  [ 0,  p,  0,  0,  0,  q,  0,  0,  0,  0,  0,  0]; %  4
  [ 0,  p,  0,  0,  0,  0,  q,  0,  0,  0,  0,  0]; %  8
  [ 0,  0,  0,  0,  0,  p,  0,  q,  0,  0,  0,  0]; % 10
  [ 0,  0,  0,  0,  0,  0,  p,  0,  q,  0,  0,  0]; % 12
  [ 0,  0,  0,  0,  0,  0,  0,  p,  0,  q,  0,  0]; % 14
  [ 0,  0,  0,  0,  0,  0,  0,  0,  p,  0,  q,  0]; % 16
  [ 0,  0,  0,  0,  0,  0,  0,  0,  0,  p,  0,  q]; % 18
  [ q,  0,  0,  0,  0,  0,  0,  0,  0,  0,  p,  0]; % 20
];
result = m^128;
retval = result(:,1:2);
endfunction