>>423
「リダクションだけでは進まない」って何を指して言ってる？
y fを評価していってもf (y f)と構文的に同じにならないってこと？
再帰を記述するのが目的ならそれは別に必要ないんじゃね

import Unsafe.Coerce

main = print $ y (9:)

y :: (a -> a) -> a
y = \f -> (\x -> f (unsafeCoerce x x)) (\x -> f (unsafeCoerce x x))