$n=0;
print ($n,"\n");
while ($n<1){
    $n=$n+.1;
    print ($n,"\n");
}