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