print,y/RGB/GB /,s/ (G.*)/R$1R/for($"x($n=<>).RR x$n.$/)x20