(Program
  (If
    (Identifier)
    (
      (Send
        (Identifier)))
    (If
      (Identifier)
      ([]
      {-(Send
        {-(Identifier)-})-})
      (Empty))))