pr :: HsExpr id -> Bool
-- True of a single token
isAtomicHsExpr (HsVar {})        = True
isAtomicHsE
isAtomicHsExpr :: HsExpr id -> Bool
isAtomicHsExpr (HsVar {})        = True
isAtomicHsExpr (HsVar {})        = True