procedure main is
begin
   
   for Item of Result loop
          if Item.kind = Snippet then
            declare
               X : Integer;
            begin
              null;
            end;
         end if;
      end loop;   

end main;