haskell-src-exts-1.16.0: tests/examples/RecursiveDo.hs

{-# LANGUAGE RecursiveDo #-}
justOnes = do
    rec xs <- Just (1:xs)
    return (map negate xs)