# check every Simple Queue entry
:foreach i in=[/queue simple find] do={
    :local bNew "true";
#  check if Queue simple comment contains 384k
    :if ([:find [/queue simple find get $i comment] "384k"] != 0) do={
        :local tmpAddress [/queue simple get $i target-addresses] ;
#---- if address list is empty do not check ( add address directly )
        :if ( [/ip firewall address-list find ] = "") do={
            /ip firewall address-list add address=$tmpAddress list=Users_384k disabled=no;
        } else={
#------- check every address list entry
            :foreach j in=[/ip firewall address-list find ] do={
#---------- set bNew variable to false if address exists in address list
                :if ( [/ip firewall address-list get $j address] = $tmpAddress ) do={
                    :set bNew "false";
                }
            }
#------- if address is new then add to address list
            :if ( $bNew = "true" ) do={
                /ip firewall address-list add address=$tmpAddress list=Users_384k disabled=no
            }
        }
    }
}

foreach i in=[/queue simple find comment="384k"] do={
local ip [queue simple get value-name=target-addresses $i ]
foreach j in=[ip firewall address-list find list=384k] do={
local tmpip [ip firewall address-list get value-name=address $j ]
if ($ip != $tmpip) do={/ip firewall address-list add address=$ip list=384k}
}
}

foreach i in=[/queue simple find comment="384k"] do={
  local ip [queue simple get value-name=target-addresses $i ]
  foreach j in=[ip firewall address-list find list=384k] do={
    local tmpip [ip firewall address-list get value-name=address $j ]
    if (($ip != $tmpip) && ([/ip firewall address-list find list=384k address=$ip] = "")) do={
      /ip firewall address-list add address=$ip list=384k
    }
  }
}

:local lenip;
:foreach i in=[/queue simple find comment="384k"] do={
  :foreach ip in=[/queue simple get value-name=target-addresses $i ] do={
    :set lenip [:len $ip];
    :if ([:pick $ip ($lenip-3) $lenip] = "/32") do={
      :set ip [:pick $ip 0 ($lenip-3)];
    }
    :if ([/ip firewall address-list find list=384k address=$ip] = "") do={
      /ip firewall address-list add address=$ip list=384k
    }
  }
}