Here's the solution.

fun {CharFreq S}
   D = {NewDictionary}
   for C in S do
      {Dictionary.put D C {Dictionary.condGet D C 0}+1 }
   end
in
   {Dictionary.toRecord freq D}
end

      

{Browse {CharFreq "abbabcbdbabdbdbabababcbcbab"}}