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