(Program
  (Package
    (Identifier))
  (Function
    (Empty)
    (Identifier)
    ([])
    (
      (Type
        (Identifier)
        (Constructor
          (Empty)
          (Field
            (Identifier)
            (
            { (Identifier)
            ->(Identifier) }
            {-(Identifier)-})))))))