text: Классический Стиль: pow2 :: Float -> Float pow2 a = a ** 2 add :: Float -> Float -> Float add a b = a + b pyth :: Float -> Float -> Float pyth a b = sqrt (add (pow2 a) (pow2 b)) Для того чтобы преобразовать классическую функцию в CPS-подобную надо добавить еще один аргумент типа F, где F означает функцию из возвращаемого значения исходной функции в произвольный тип x.