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