{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 16384,0,655360}

program STONES;

 var
   f: text;

begin
 Assign (f, 'STONES.DAT');
 Reset (f);
 Close (f);
 Assign (f, 'STONES.RES');
 Rewrite (f);
 Writeln (f, 2);
 Close (f);
end.