perl -E'sub f{$_[0]<2||f($_[0]-1)+f($_[0]-2)}say f$f++while 1'