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