> hendersonsBudget = 8000 > worthBudget = 8000 > budget = hendersonsBudget + worthBudget :: Double > ceremonyCateringPerHead = 5 > ceremonyAttendants = 175 > ceremonyCatering = ceremonyAttendants * ceremonyCateringPerHead > receptionPerHead = 60 -- 33.5 > receptionAttendants = 50 > reception = receptionPerHead * receptionAttendants > venueHire = 2800 > clothes = 2500+1000 > photos = 1000 > flowers = 500 > bands = 1000 > preacher = 500 > decor = 1000 > drinks = (3 / 1.25e3) * (ceremonyAttendants * 200) -- 1.25l bottles to go into 200ml glasses > cake = 500 > seats = 500 > invitations = (receptionAttendants / 10) * 30 + (ceremonyAttendants) * (0.1 + 0.2) > total = sum [ceremonyCatering, clothes, photos, flowers, preacher, decor, drinks, cake, invitations, reception, seats] :: Double