VAR

a:ARRAY[1..4,1..4] OF STRING;

i,j,k,n,m:LONGINT;

PROCEDURE prework();

BEGIN

i:=0;

j:=0;

k:=0;

m:=0;

a[1,1]:='hong';

a[1,2]:='bai';

a[1,3]:='qing';

a[1,4]:='huang';

a[2,1]:='bai';

a[2,2]:='qing';

a[2,3]:='huang';

a[2,4]:='hong';

a[3,1]:='qing';

a[3,2]:='huang';

a[3,3]:='hong';

a[3,4]:='bai';

a[4,1]:='huang';

a[4,2]:='hong';

a[4,3]:='bai';

a[4,4]:='qing';

END;

BEGIN

prework;

readln(n);

if n<=0 then

begin

n:=n mod 16;

n:=n+16;

end;

if n mod 4=0 then

if n mod 16=0 then

begin

writeln(a[4,4]);

writeln(a[4,1],' ',a[4,2],' ',a[4,3],' ',a[4,4]);

end

else

begin

writeln(a[n div 4,4]);

writeln(a[n div 4,1],' ',a[n div 4,2],' ',a[n div 4,3],' ',a[n div 4,4]);

end

else

begin

n:=n mod 16;

writeln(a[(n div 4)+1,n mod 4]);

writeln(a[(n div 4)+1,1],' ',a[(n div 4)+1,2],' ',a[(n div 4)+1,3],' ',a[(n div 4)+1,4]);

end;

END.