<lang rebol>count: function [jewels,stones][
size select split stones => [in? & jewels]
]
print count "aA" "aAAbbbb"</lang>
3