++- Selene                                                 ** Veronica

weighted-average = list @fp ->                             (@ weighted-average list @fp +-
  weight, divider, total = 0 ..                                (0 .weight .divider .total ..)
                                                               (# records-in list (@ item +-
  - records-in list ( item ->                                                         (+= 1 .weight)
                              weight += 1                                             (+= (* weight (# fp item)) .total)
                              total += (fp item) * weigh                              (+= weight .divider)
                              divider += weight                                   )
                    )                                          )
                                                               ([divider] >
  if divider -> total / divider                                    ((/ divider) total)
  else 0                                                       >
_                                                                  0
  list : A|L                                                   )
;                                                          +
                                                               {A|L} list
                                                           )





