sub Y{
    my$i=0;
    $i while($i++<10);
}
print"\nYES>".Y;