declare
Text = "This sentence has two money, this one, and another money. There is no such monetary term in this sentence. This one has one money in it."

fun {SkipToNext Xs}
   case Xs
   of X1|X2|Xr
   then if [X1 X2]==". "
	then Xr
	else {SkipToNext Xs.2}
	end
   else Xs
   end
end

fun {MoneyHelp Xs I}
   case Xs
   of X1|X2|X3|X4|X5|Xr
   then
      if [X1 X2 X3 X4 X5]=="money"
      then {MoneyHelp {SkipToNext Xr} I+1}
      else {MoneyHelp Xs.2 I}
      end
   else I
   end
end

fun {Money Xs}
   {MoneyHelp Xs 0}
end

{Browse {Money Text}}