model {
	A ~ dcat(p_A[])
	S ~ dcat(p_S[])
	T ~ dcat(p_T[input_T, ])
		input_T <- A
	L ~ dcat(p_L[input_L, ])
		input_L <- S
	B ~ dcat(p_B[input_B, ])
		input_B <- S
	E ~ dcat(p_E[input_E, ])
		input_E <- 2*(L - 1) + T
	X ~ dcat(p_X[input_X, ])
		input_X <- E
	D ~ dcat(p_D[input_D, ])
		input_D <- 2*(E - 1) + B
}
