[Help]How can I define date like 20090317 not 2009mar17?

How can I define date like 20090317 not 2009mar17?
i use this script

:local backupname ([/system identity get name] . "-" . \
    [:pick [/system clock get date] 7 11] . \
    [:pick [/system clock get date] 0 3] . \
    [:pick [/system clock get date] 4 6])
:local emailaddress "YOUREMAILADDRESS"
:local subject ("{mtbackup} " . [/system identity get name] . " @ " . [/system clock get date])

/system backup save name=$backupname
/tool e-mail send to=$emailaddress subject=$subject file=$backupname
:delay 10;
/file remove [/file find name="$backupname.backup"]
:log info "System backup emailed: $subject"

i want the *.backup file be like “identity-20090317.backup

The problem is:
[:pick [/system clock get date] 0 3]
how to change month name to month number, or how to get it from MT?

# define an array ( i have only array until april as an example)
:global monArr {{"jan";"01"};{"feb";"02"};{"mar";"03"};{"apr";"04"}};
# get current month
:global mon [:pick [/system clock get date] 0 3];

:foreach i in=$monArr do={ 
   :if ([:pick $i 0] = $mon) do={
        :put [:pick $i 1];
   }
}

Should it looks like that?:

:local backupname ([/system identity get name] . "-" . \
    [:pick [/system clock get date] 7 11] . \
    $mon . \
    [:pick [/system clock get date] 4 6])

Not really

In my example I just did :put […]
instead of $mon use verything that is in [..]

By the way why you need all this crap, if you just do
/system backup save
it will automatically generate backup file with filename like
MikroTik-18032009-0934.backup

Because i have to send e-mail with $backupname file:

/tool e-mail send to=$emailaddress subject=$subject file=$backupname

then, delete taht backup:

/file remove [/file find name="$backupname.backup"]

So, how to define $backupname with your example?
And the last thing - i need format 20090318 - but not 18032009, how to do it?