const zj:array[1..4,1..4]of string=(('hong','bai','qing','huang'),

('bai','qing','huang','hong'),

('qing','huang','hong','bai'),

('huang','hong','bai','qing'));

var

n,x,y:longint;

begin

readln(n);

if n<0 then n:=n+16;

x:=n div 4;if x=0 then x:=4;

y:=n mod 4;if y=0 then y:=4;

writeln(zj[x,y]);

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

end.

（普通保护错误）