Count character instances in string

[klwp]

Could we get a tc( code that can count how many times a certain character gets repeated in a custom text? (Instead of using regex or loops.)

$tc(count, "SomeText", "e")$ would output 2

[frank]

Available in 3.46