fold and zero mul

Надо было написать fold_right в CPS, который принимает CPS-ную функцию (в обычном варианте фолда в cps у нас была обычная функция) 

Также, если допустим у нас фолд для умножения и в списке есть 0, то возвращается 0 и вычисления прекращаются

Например, fold_right (*) [1,2,0,4] k должен был возвращать 0