procedure gnat.io.a is
i,x:integer;s:string(1..99);begin
get(i);get(s(1));get_line(s,x);get_line(s(x+1..99),x);put(s(1..i+i/10+8));end;