read n k||cd /
(for((a[i=k]=z=1;i++<n;a[i]=z=z*2+2**r-a[r++])){ :;};echo $z)
. *