Haskell imitate of http://bit.ly/nix_pills-fixed_point.

fix.hs

fix = \f -> let r = f r in r -- retuns f (f (f (f (f ...)))), sounds like infinile loop?

data D = D {
  a :: Int,
  b :: Int,
  c :: Int
} deriving (Show)

d = (\self -> D 1 (a self + 1) (a self + b self)) -- Can reference itself!
             -- ^ ^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^
             -- a b=a+1        c=a+b

fix d -- => D {a = 1, b = 2, c = 3}