let p,q,s,n=print_char,String.iter,read_line(),read_int()-1;;for i=n to n*2do
q(fun c->p c;for j=2to n do p[|' ';c|].(i/n*n/i)done;p c)s;p '
'done