perl -E 'sub f{say$_[0];goto&f($_[1],$_[0]+$_[1])}f(1,1)'