uoted_printable :: Parser ByteString
quoted_printable = do
  l <- qp_line
  ls <- many ((S.cons '\n') <$> (crlf *> qp_line))
  return $ l <> S.concat ls

quoted_printable :: Parser ByteString
quoted_printable = do
  l <- qp_line
  ls <- many ((S.cons '\n') <$> (crlf *> qp_line))
  return $ l <> S.concat ls
quoted_printable = do
  l <- qp_line
  ls <- many ((S.cons '\n') <$> (crlf *> qp_line))
  return $ l <> S.concat ls