w[[A,I	[],[w[[A_.w,\=\,\\1]],1]]