package D is

    type T is (One, Two, Three);
end D;