(Statements
  (Package
    (Identifier))
  (Function
    (Empty)
    (Identifier)
    (Statements)
    (Statements
      (Type
        (Identifier)
        (Constructor
          (Empty)
          (Empty)
          (Field
            (Identifier)
            (Statements
            { (Identifier)
            ->(Identifier) }
            {-(Identifier)-})))))))