dtmc

const double p = 0.4;

module die
	s : [0..7] init 0;
	d : [0..6] init 0;

	[] s=0 -> p : (s'=1) + (1-p) : (s'=2);
	[] s=1 -> p : (s'=3) + (1-p) : (s'=4);
	[] s=2 -> (1-p) : (s'=5) + p : (s'=6);
	[] s=3 -> p : (s'=1) + (1-p) : (s'=7) & (d'=1);
	[] s=4 -> p : (s'=7) & (d'=2) + (1-p) : (s'=7) & (d'=3);
	[] s=5 -> p : (s'=7) & (d'=4) + (1-p) : (s'=7) & (d'=5);
	[] s=6 -> p : (s'=2) + (1-p) : (s'=7) & (d'=6);
	[] s=7 -> 1 : (s'=7);
endmodule

label "done" = s=7;