#### 
####                                              #### 
####                                              #### 
#!/usr/bin/perl############################################################## 
################################################################################## 
############################fox91#################################################### 
#################################29/02/2008############################################ 
######################################################################################## 
######################################################################################### 
########################################################################################## 
########################################################################################## 
####                                              ####                               ###### 
####                                              ####                                 #### 
                                                  ####                     ######      #### 
                                                  ####                   ##########   ##### 
                                                                        @f=(0,1);########## 
                                                                       while($i<10){####### 
                                                                       if($f[$i]>=1){###### 
                                                                       $a=$f[$i]+$f[$i-1];# 
                                                                        push(@f,$a);}#####
                                                                         $i=$i+1;}######
									  print "@f\n";
                                                                            #########