mikrotik static script

/ip dhcp-server lease {
   :foreach i in=[find (dynamic && status="bound" && server="rang172-20-4")] do={
      :local activeAddress [get $i active-address]
     :local activeMacAddress [get $i active-mac-address]
	 :local hostname ""
     :local hostname [get $i host-name]
	
      :if ( [:len $hostname] > 0) do={ :put "OK $[:len $hostname] *$hostname*"; [/ip dhcp-server lease make-static $i]; }
      :put ($outputContent . "\n" . $activeAddress . "," . $activeMacAddress . "," . $hostname)
 }
}