command0 :: Parser Cmd
command1 :: Parser Cmd
command2 :: Parser Cmd
...
command0 = do c1 <- command1
              do symbol ";"
                 c2 <- command0
                 return (Seq c1 c2)
           +++
           ...
...