$i=5;
do {
     print --$i;
} while ($i);