fay-0.10.1.0: tests/RecCon.hs

import           Language.Fay.Prelude

data Bool = True | False

main = print (head (fix (\xs -> 123 : xs)))

head (x:xs) = x

fix f = let x = f x in x