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