Select Code to Download

perl -le'$==0,(1x$_)=~/(^)(|1(?2)(?2)(?(?{})))$(?{$=++})^/,print$=for 
+0..13'

perl -le'$==0,(1x$_)=~/^(|()1(?1)(?1)\2)$(?{$=++})^/,print$=for 0..13'