ppTermF' pp lcls p (App l r) = ppApp <$> pp lcls PrecApp l <*> pp lcls PrecArg r
  where ppApp l' r' = ppAppParens p $ group $ hang 2 $ l' Leijen.<$> r'
ppTermF' pp lcls p (App l r) = ppApp <$> pp lcls PrecApp l <*> pp lcls PrecArg r
  where ppApp l' r' = ppAppParens p $ group $ hang 2 $ l' Leijen.<$> r'
ppTermF' pp lcls p (App l r) = ppApp <$> pp lcls PrecApp l <*> pp lcls PrecArg r
  where ppApp l' r' = ppAppParens p $ group $ hang 2 $ l' Leijen.<$> r'