multiply indexed sets (ported from happstack) - View it on GitHub