while(0<1)println{val Array(n,k)=readLine split' 'map(_.toInt)
(1<<n)-(0.to(n):\Seq(1))((_,z)=>z.sum+:z take k)(0)}