script 1 - mikrotik

:local a
:local d
:foreach id in=[/routing bgp peer find] do={
       :set a [/routing bgp peer get $id remote-address];
       :set d [/ip firewall address-list find where list=peer-bgp address=$a]
       :if ($d = {} ) do={
              /ip firewall address-list add list=peer-bgp address=$a;
       }
}