If we interpret your question literally, we can write const value foldrto achieve any value, as @DanielWagner noted in the comment.
, Haskell "" /, , foldr . , , .
, () . , .
f x = f x
-- or even
a = a
, , .
, .
fix :: (a -> a) -> a
fix f = f (fix f)
: , Haskell? , ?
, , ( ), .
. , "i - ".
eval i x i - x ( , ). , , , . , eval Haskell, Haskell Haskell ( : -P), .
f n = succ $ eval n n
( ), Haskell, . , , , i -th program.
eval i x = f x
x.
eval i i = f i = succ $ eval i i
- . .