begin
      -- Create hierarchy table 
 
     declare local temporary table Universe( 
      Parent VARCHAR( 30 ),
      Name  VARCHAR( 30 ) PRIMARY KEY 
     ); 
      
      -- Some test data 
 
     INSERT INTO Universe VALUES ( NULL, 'World' ) ;  
     INSERT INTO Universe VALUES ( 'World', 'Europe' ) ;  
     INSERT INTO Universe VALUES ( 'Europe', 'England' ) ; 
     INSERT INTO Universe VALUES ( 'Europe', 'The Netherlands' ) ;  
     INSERT INTO Universe VALUES ( 'Europe', 'Germany' ) ;  
     INSERT INTO Universe VALUES ( 'World', 'Asia' ) ;  
     INSERT INTO Universe VALUES ( 'Asia', 'Japan' ) ;  
     INSERT INTO Universe VALUES ( 'Asia', 'China' ) ;  
     INSERT INTO Universe VALUES ( 'World', 'America' ) ; 
     INSERT INTO Universe VALUES ( 'America', 'United States' ) ;  
     INSERT INTO Universe VALUES ( 'America', 'Mexico' ) ; 
     INSERT INTO Universe VALUES ( 'World', 'Africa' ) ;  
     INSERT INTO Universe VALUES ( 'Africa', 'Egypt' ) ;  
     INSERT INTO Universe VALUES ( 'Africa', 'Morocco' ) ; 

     WITH RECURSIVE
       HUniverse ( Name, Parent, Level, Path ) AS (
         SELECT Name, Parent,  0 , Name
         FROM Universe
         WHERE Parent IS NULL
       UNION ALL 
         SELECT u.Name, u.Parent, h.Level +  1 , h.Path + '/' + u.Name
         FROM Universe u
           INNER JOIN HUniverse h ON h.Name = u.Parent AND h.Name <> u.Name
         WHERE u.Parent IS NOT NULL
       )
       SELECT Space( Level *  5  ) || Trim(Name) AS LevelName
       FROM HUniverse
       ORDER BY Path;
end