[Harlowe] Can't escape a single quote

I have code similar to this:

(set: $a to (datamap: "A", ""))
(set: $b to "(set: $a's 'A' to it +       ' Don't! '      )")
(print: $b)
(print: $a's A)

The single quote in 'Don't' needs escaping, or Harlowe will think it's the closing quote of the string and all will break.

But surrounding that single quote with tildes doesn't work. The engine says: Unterminated template literal

Using double quotes is not an option since all that is already inside the double quotes that define $b.

Is there any solution to this? Right now, I have to write "do not" and "does not" all along my game, since practically all the content is defined in blocks like these (yes, my game is stupidly complex).