Wrote Haskell version of GripWhenBroken. It works in simulation.