#lang racket

(define entities (hash "a" "A" "b" "B"))

(define (html-entities-replace str from-to)
  (let ([result str])
    (for/last ([(key value) entities])
      (string-replace result key value))))