def f a;a==($u[a]||=a)?a:$u[a]=f($u[a])end
while 0<n=gets.to_i
$u={}
h={}
e={}
(?a..?z).map{|c|$u[c]=c;h[c]=0}
n.times{
h[a=gets[0]]+=1
h[b=$_[-2]]-=1
e[a]=e[b]=1
$u[f b]=f a
}
puts h.select{|k,v|e[k]}.any?{|k,v|f k;v!=0}||$u.select{|k,v|e[k]}.values.uniq[1]?:NG:"OK"
end