$a=$_-($A[$_]=$A[++$b]+$A[$b=++$a])for(@A=(1,1))..299;$,=$/,print@A