perl -le '(1 x $_++) =~ /^(1(??{1x$-[1]}))*$/ && print while 1' [download]
perl -le 'print "Fibonacci" if (1x(-1+pop)) =~ /^(1(??{1x$-[1]}))*$/' +<NUMBER> [download]
MeowChow s aamecha.s a..a\u$&owag.print