P: matrix(
 [1/3,0,1/3,1/3,0], 
 [0,1/3,0,1/3,1/3], 
 [1/3,0,1/3,0,1/3], 
 [1/3,1/3,0,1/3,0], 
 [0,1/3,1/3,0,1/3]
);

pizero: matrix(
 [1,0,0,0,0]
);

pizero.P;return;

for k:1 thru 100 do (print("k=", k), pizero:pizero.P, print(pizero));