(Program
  (Function
    (Empty)
  {-(Identifier)-}
  {-(Identifier)-}
  {-(Identifier)-}
    (
      (Function
        (Empty)
        (
        { (Integer)
        ->(Identifier) }
        {-(Integer)-})))))