purtroppo non ci arrivo,
capisco che dovrebbe essere la variabile $r a dar fastidio ma non immagino come modificare questo script.