callExpr :: Parser Expression
callExpr = parens $ do
  rator <- expression
  rands <- many expression
  return $ CallExpr rator rands

-- | BeginExpr ::= begin BeginBody end
--
--   BeginBody ::= <empty>
--             ::= Expression BeginBodyTail
--
--   BeginBodyTail ::= <empty>
--                 ::= ; Expression BeginBodyTail
callExpr :: Parser Expression
callExpr = parens $ do
  rator <- expression
  rands <- many expression
  return $ CallExpr rator rands

-- | BeginExpr ::= begin BeginBody end
--
--   BeginBody ::= <empty>
--             ::= Expression BeginBodyTail
--
--   BeginBodyTail ::= <empty>
--                 ::= ; Expression BeginBodyTail
callExpr = parens $ do
  rator <- expression
  rands <- many expression
  return $ CallExpr rator rands

-- | BeginExpr ::= begin BeginBody end
--
--   BeginBody ::= <empty>
--             ::= Expression BeginBodyTail
--
--   BeginBodyTail ::= <empty>
--                 ::= ; Expression BeginBodyTail