oops - same with neater formatting

[G <Dizzy@interact.net.au>]

> ---------------------------
>
> package Problem is
>
>
>   type Component is (Single, Dependent, Group);
>   type Component_List is array (Component'First..Component'Last) of
> Component;
>
>
>
>   type Simple_Problem is tagged
>   record
>     Unit : Component;
>   end record;
>
>   type Complex_Problem is new Simple_Problem with
>   record
>     Simple_Structure : Component_List;
>     Simple_Recursive_Reference : Simple_Problem;
>   end record;
>
>   type Compound_Problem is new Complex_Problem with
>   record
>     Complex_Structure : Component_List;
>
>     Complex_Recursive_Reference : Complex_Problem;
>   end record;
>
> end Problem;
> ------------------------------------------------------------------------------