#!/usr/bin/perl
for($i=0;$i<10;$i++)
{
 if($i==3||$i==4)
{
 next;
}
elsif($i==7){
last;}
else{
print "$i\n";
}
}