on_cast haskell-text dispel_self
