:foreach i in=[/ip hotspot user find ] do={
:local email [/ip hotspot user get value-name=email $i ]
:local downquotamb [:tonum [:pick $email 0 3]]
:local downquota ($downquotamb * 1000)
:put $downquota
/ip h us set $i  limit-bytes-total=$downquota
}

/ip hotspot user
:foreach user in=[find where !default and !dynamic] do={
    :local email      [get $user email]
    :local totalquota ([:tonum [:pick $email 0 [:find $email "G"] ] ] * 1000)
    :local days       [:pick $email ([:find $email "@"] + 1) [:find $email "."] ]
    :local profile    [:pick $email ([:find $email "."] + 1) [:len $email] ]
    :if ([:typeof $totalquota] = "num") do={set $user limit-bytes-total=($totalquota."M")}

    :put "$[get $user name] limit-bytes-total=$($totalquota."M") days=$days profile=$profile"
}