Li-Fan Chen
says to
YSITD
let Y = f => (x=>f(x(x))(x=>f(x(x)))