Select Code to Download

perl -le '(1 x $_++) =~ /^(1(??{1x$-[1]}))*$/ && print while 1'

perl -le 'print "Fibonacci" if (1x(-1+pop)) =~ /^(1(??{1x$-[1]}))*$/' 
+<NUMBER>