$a=$b=z("1,1");r(($a,$b)=($a+$b,$a))while($a<1000);z("\n");sub r{z(",$a");};sub z{print$_[0]};