1001001

Взгляните на функцию on
она так работает берет бинарный оператор далее функцию и два аргумента над которыми надо произвести действие
on :: (b -> b -> c) -> (a -> b) -> a -> a -> c