on_cast haskell-stm dispel_self
