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