to recenica
pr [Unesi recenicu:] localmake "sam filter [[x] [op memberp :x "aeiou]] rw
if emptyp :sam [pr [Nema samoglasnika] stop]
foreach "aeiou [[x] [localmake "s count filter [[y] [op equalp :x :y]] :sam if :s > 0 [pr (se :x "= :s)]]]
end