我试图不使用列表来总结谓词的值。对值求和，最后得到这些值的总和。
%shop(TicketNumber, Client, Month).
shop(1, ash, 12).
shop(2, nelson, 11).
shop(3, rob, 10).
%cart(TicketNumber, Product, Price).
cart(1, eggs, 15).
cart(1, milk, 20).
cart(1, meat, 30).
cart(2, eggs, 10).
cart(2, soil, 5).
totalCostShop应该返回总成本，例如shop（1，ash，12）的总成本应为65。