with persons; use persons;
with Ada.Strings.Unbounded;
with Ada.Text_IO;

package poles is
    package su renames Ada.Strings.Unbounded;
    package to renames Ada.Text_IO;

    type pole is new persons.person with private;

    function get_pesel(This: pole) return su.Unbounded_String;
    procedure set_pesel(This: out pole; val: su.Unbounded_String);
    overriding procedure greet(This: pole);

private

    type pole is new persons.person
        with
        record
            pesel: su.Unbounded_String;
        end record;


end poles;