buyACoke 0 = 1 buyACoke rightNow = youShould * buyACoke (rightNow `at` walmart) where youShould = rightNow at = (-) walmart = 1