ind :: PP ()
ind = PP $ \cfg indentlvl ns b ->
  (ns, foldl' (<>) b (replicate indentlvl (indentStr $ ppOpts cfg)), ())
ind :: PP ()
ind = PP $ \cfg indentlvl ns b ->
  (ns, foldl' (<>) b (replicate indentlvl (indentStr $ ppOpts cfg)), ())
ind = PP $ \cfg indentlvl ns b ->
  (ns, foldl' (<>) b (replicate indentlvl (indentStr $ ppOpts cfg)), ())