(Program
{+(Identifier)+}
  (BeginBlock
  { (Identifier)
  ->(Identifier) }))