program p1379;

var s,s1:ansistring;

p1,p2,p3,i,j,a,n:integer;

begin readln(p1,p2,p3);

readln(s);

s1:='';

for i:=1 to length(s) do

begin

s1:=s1+s[i];

if (s[i]='-') and (s>s) then

begin if (ord(s)>47) and (ord(s)47) and (ord(s)64) and (ord(s)64) and (ord(s)96) and (ord(s)96) and (ord(s)