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