Bounding Wasserstein distance with couplings