Problem:
Score : 200 points

Problem Statement

You are given a string S consisting of lowercase English letters.
Find the lexicographically (alphabetically) smallest lowercase English letter that does not occur in S.
If every lowercase English letter occurs in S, print None instead.

Constraints

1 \leq |S| \leq 10^5 (|S| is the length of string S.)

S consists of lowercase English letters.

Input

Input is given from Standard Input in the following format:

S

Output

Print the lexicographically smallest lowercase English letter that does not occur in S.
If every lowercase English letter occurs in S, print None instead.

Sample Input 1

atcoderregularcontest

Sample Output 1

b

The string atcoderregularcontest contains a, but does not contain b.

Sample Input 2

abcdefghijklmnopqrstuvwxyz

Sample Output 2

None

This string contains every lowercase English letter.

Sample Input 3

fajsonlslfepbjtsaayxbymeskptcumtwrmkkinjxnnucagfrg

Sample Output 3

d

Solution in Pascal (FPC 2.6.2) (judge verdict: Accepted)

var s:String;i:Longint;f:boolean;
begin
	readln(s);
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='a' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('a');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='b' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('b');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='d' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('d');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='f' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('f');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='i' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('i');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='p' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('p');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='y' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('y');
		exit;
	end;
	f:=false;
	for i:=1 to length(s) do begin
		if s[i]='z' then begin
			f:=true;
			break;
		end;
	end;
	if not f then begin
		writeln('z');
		exit;
	end;
	writeln('None');
end.