main = do (do b; a; a; a); do (do c; a; a; a)