@_=(1,1);
for(1...23){
  $a=!$a+0;
  print @_[$a]=@_[!$a] + @_[$a] . "\n";
}