[Haskell-beginners] fixpoint operator for ULC with specific reduction property