w[[A,I	[],[w[[A_w,\=\,\\1]],1]]