output :: Formatting -> Text -> [Output]
output fm s = case T.uncons s of
  Nothing        -> []
  Just (' ', xs) -> OSpace : output fm xs
  _              -> [OStr s fm]
output :: Formatting -> Text -> [Output]
output fm s = case T.uncons s of
  Nothing        -> []
  Just (' ', xs) -> OSpace : output fm xs
  _              -> [OStr s fm]
output fm s = case T.uncons s of
  Nothing        -> []
  Just (' ', xs) -> OSpace : output fm xs
  _              -> [OStr s fm]