1 2 3 4 5 6 7 8 9
==================== Renamer ==================== Main.main = print $ P.do (x <- [1, 2] | y <- P.do y@1 <- [1, 2] [1, 2] y) return y