program ljlf;

var

i:integer;

ans:longint;

n:integer;

nn:longint;

u,d:longint;

str:string;

procedure solve(str:string;i:integer;nn:longint);

var

value:integer;

left,right:string;

begin

if str=''then exit;

if (i>=d)and(i