let
tag t s =
Collection
.add t.measurements (
Item
.tag s)