#{
	counterLoad <- 4
	step <- :myState world {
		move <- myState value
		counter <- (myState tail) - 1
		if: counter = 0 {
			move <- move + 1
			counter <- counterLoad
			if: move = 4 {
				move <- 0
			} else: {}
		} else: {}
		#[#[move counter] move]
	}
	
	main <- :initWorld mystery {
		#[#[0 counterLoad] step]
	}
}