(Program
  (If
  { (Not
    {-(Identifier)-})
  ->(Identifier) }
    (Identifier)
    (Empty)))