LOCAL sto : BAG  OF  stratum_technology_occurrence_armx := [ ] ; stol : BAG OF stratum_technology_occurrence_link_armx := [ ] ; i : INTEGER := 0 ; END_LOCAL ; REPEAT  i := 1 TO  SIZEOF  ( input ) BY  1 ; stol := stol + input [ i ] \ local_linear_stack_armx . stratum_technology_sequence ; END_REPEAT  ; REPEAT i := 1 TO SIZEOF ( stol ) BY 1 ; sto := sto + stol [ i ] \ stratum_technology_occurrence_link_armx . precedent_sto ; sto := sto + stol [ i ] \ stratum_technology_occurrence_link_armx . subsequent_sto ; END_REPEAT ; RETURN ( sto ) ;