do cmd <- paren "()(())" :: IO (IO ()); cmd
do cmd <- paren "(())((())())" :: IO (IO ()); cmd
do cmd <- paren "(())((())()" :: IO (IO ()); cmd