in reply to Fibonacci Sequence
Perhaps not especially obscure, but:
$"++,grep{$.=$"+$^,print$.,$/;$^=$",$"=$.}$[..0x10
Update: A variation, less obfuscated, but more golfy if you have a vaguely modern version of Perl...
# 1 2 3 # 12345678901234567890123456789012345678 perl -E'$a=1;map{$.=$a+$b;$b=$a;say$a=$.}0..71'
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
In Section
Obfuscated Code