ex246 is
items := ["Lies", "lies", "lies", "lies",
"Gold", "gold", "gold", "gold",
"Guns", "guns", "guns", "guns",
"Fire", "fire", "fire", "oh!",
"Gold", "gold", "gold", "gold",
"Church", "church", "church", "church",
"Guns", "guns", "guns", "guns",
"Fire", "fire", "fire", "oh!",
"Oh!"]
say items
c := (container.set_of_ordered items).count
say c