actors $ FannkuchRedux :: print_p

	fun print_p do
		for i in [0..p.length[ do printn p[i] + 1
		print ""
	end