dCost a y | y == 1 && a >= y = 0
          | otherwise        = a - y
dCost a y | y == 1 && a >= y = 0
          | otherwise        = a - y
dCost a y | y == 1 && a >= y = 0
          | otherwise        = a - y