VAR
s:string;
k,n,l,c:Longint;
begin
read(s);      l:=length(s);
val(s,n,c);
if (n<3) and (n>0) then
begin
k:=0;
    case s[l] of
    'a','A': write('window');
    'D','d': write('window');
    'b','B': write('aisle');
    'c','C': write('aisle');
    end;
end;
if (n>=3) and (n<=20) then
begin
k:=0;
    case s[l] of
    'a','A': write('window');
    'f','F': write('window');
    'b','B': write('aisle');
    'd','D': write('aisle');
    'E','e': write('aisle');
    'c','C': write('aisle');
    end;
end;
if (n>=21) and (n<=65) then
begin
k:=0;
    case s[l] of
    'a','A': write('window');
    'k','K': write('window');
    'g','G': write('aisle');
    'd','D': write('aisle');
    'h','H': write('aisle');
    'c','C': write('aisle');
    'b','B': write('neither');
    'e','E': write('neither');
    'f','F': write('neither');
    'J','j': write('neither');
    end;
end;
if n>65 then  write('neither');
end.

Edited by author 20.11.2012 23:14