{-# LANGUAGE RecursiveDo #-} main = do {rec {x <- return 1}; print x}