https://github.com/BNFC/bnfc/blob/c2897d032338b541a5a54793d805993d49e0f79c/source/src/BNFC/Backend/Haskell/CFtoAlex3.hs#L65