> PASCAL的OJer们注意了，此题的数据只有小写字母，大家按照小写字母读入即可
procedure scanf;
var
 i:longint;
 c:char;
begin
 i:=0;read(c);
 repeat
  i:=i+1;
  x[i]:=c;
  read(c)
 until not(c in ['a'..'z']);
 lx:=i;
 while not(c in ['a'..'z']) do read(c);
 i:=1;y[1]:=c;
 repeat
  i:=i+1;
  read(y[i]);
 until eoln;
 ly:=i;
 readln;
end;