//「きゅうり」と「だいこん」が重複
st="たまねぎ\nにんじん\nきゅうり\nだいこん\nとまと\nきゃべつ\nぱーまん\nきゅうり\nじゃがいも\nだいこん"
st2=""
mes st
notesel st
repeat notemax
notesel st
noteget tmp,cnt
notesel st2:f=0
repeat notemax
noteget tmp2,cnt
//重複チェック
if tmp2=tmp:f=1:break
loop
if f=0:noteadd tmp
loop
pos 100,0:mes st2