Процедура smooth

Ева Лу Атор недовольна подходом Хьюго из упражнения 3.75 . Написанная им программа не модульна, поскольку смешивает операции сглаживания и отлова пересечений ноля. Например, тест на пересечение не должен изменяться, если Лизе удастся найти другой способ улучшить качество входного сигнала. Помогите Хьюго и напишите процедуру smooth , которая берет на входе поток, а на выходе выдает поток, элементы которого получены усреднением каждых двух последовательных элементов входного потока. Затем используйте smooth как компоненту и реализуйте детектор перехода через ноль в более модульном стиле.

---