var n:word;begin repeat read(n);writeln(n+1or 1)until 0>0end.