implement union-find for cancel functions
implement union-find for cancel functions

Ignore-this: 16f124923bebaad3099920c28717420f

darcs-hash:20110712143902-c41ad-5aa86a80728bdc454e2d0b71525a6ab464db5447.gz

avsm/lwt-OLD,avsm/lwt-OLD