MACRO: hendersonsBudget ( -- price ) [ 8000 ] ; MACRO: worthBudget ( -- price ) [ 8000 ] ; MACRO: budget ( -- price ) [ hendersonsBudget worthBudget + ] ; MACRO: ceremonyCateringPerHead ( -- price ) [ 5 ] ; MACRO: ceremonyAttendants ( -- num ) [ 175 ] ; MACRO: ceremonyCatering ( -- price ) [ ceremonyAttendants ceremonyCateringPerHead * ] ; MACRO: receptionPerHead ( -- price ) [ 60 ] ; MACRO: receptionAttendants ( -- price ) [ 50 ] ; MACRO: reception ( -- price ) [ receptionPerHead receptionAttendants * ] ; MACRO: venueHire ( -- price ) [ 2800 ] ; MACRO: clothes ( -- price ) [ 2500 1000 + ] ; MACRO: photos ( -- price ) [ 1000 ] ; MACRO: flowers ( -- price ) [ 500 ] ; MACRO: bands ( -- price ) [ 1000 ] ; MACRO: preacher ( -- price ) [ 500 ] ; MACRO: decor ( -- price ) [ 1000 ] ; MACRO: drinks ( -- price ) [ 3 1250 / ceremonyAttendants 200 * * ] ; ! 1.25l bottles to go into 200ml glasses MACRO: cake ( -- price ) [ 500 ] ; MACRO: seats ( -- price ) [ 500 ] ; MACRO: invitations ( -- price ) [ receptionAttendants 10 / 30 * ceremonyAttendants 0.1 0.2 + * + ] ; MACRO: total ( -- price ) [ { ceremonyCatering clothes photos flowers preacher decor drinks cake invitations reception seats } sum ] ;