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