Generator (2nd stage: glyph substitution)
 
 (generator
  (0 (cond
   ;; shifter + above vowel sign without ZWNJ
   (" (m)?(HR)?([CR]c(HCr?)*(N|J)?(a|A))(s*S?)(H[CR])? "
    ...)
 
   ;; shifter + ZWNJ + above vowel sign, 
   ;; or, shifter without above vowel sign.
   (" (m)?(HR)?([CR]N?c)((HCr?)*)([NJ]?[ba]?)(A)?(s*p?)(P)?(S)?(H[CR])? "
    ...)
 
   ;; no consonant shift sign
   (" (m)?(HR)?([CR]r?)((HCr?)*)([NJ]?[ba]?)(A)?(s*p?)(P)?(S)?(H[CR])? "
    ...)
 
   ("." =))
   *))