n%{1\~:k-,{2\?1$2*+[k)$]{-}/}/p}%;