dpick/gist:3903312

## gistfile1.txt
  6 (defn everyo
  7   "A pseudo-relation that takes a coll and ensures that the goal g
  8   succeeds on every element of the collection."
  9   [g coll]
 10   (if (seq coll)
 11     (all
 12       (g (first coll))
 13       (everyo g (next coll)))
 14     s#))
 15
 16 (defn changemaker [hs]
 17   (everyo #(membero % [1 5 10 25]) hs))
	6 (defn everyo
	7 "A pseudo-relation that takes a coll and ensures that the goal g
	8 succeeds on every element of the collection."
	9 [g coll]
	10 (if (seq coll)
	11 (all
	12 (g (first coll))
	13 (everyo g (next coll)))
	14 s#))
	15
	16 (defn changemaker [hs]
	17 (everyo #(membero % [1 5 10 25]) hs))