@f=map{$a+=$b,$b+=$a}$a++..35;print~~grep{$r.=int.$";" @f"=~" $r"}reverse<>