SYNTAX: D:
    CREATE-WORD dup parse-definition [ ] curry (( -- x ))
    define-macro ;

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