multilineStep : Int -> List String -> P.Parser (P.Step (List String) String)
multilineStep indent lines =
    let
        multilineString : List String -> String
        multilineString lines_ =
            String.join "\n" (List.reverse lines_)

        conclusion line indent_ =
            let
                intendedLine =
                    if List.isEmpty lines then
                        line
                    else
                        String.repeat (indent + 1) " " ++ line
            in
            if indent_ > indent then
                P.Loop (intendedLine :: lines)

            else
                P.Done (multilineString (intendedLine :: lines))
    in
    P.oneOf
        [ P.succeed conclusion
            |= characters (not << isNewLine)
            |. P.chompIf isNewLine
            |. spaces
            |= P.getCol
        , P.succeed (P.Done <| multilineString lines)
        ]

postProcessString : String -> String
postProcessString str =
  -- let
  --     regexFromString : String -> Regex
  --     regexFromString =
  --         Regex.fromString >> Maybe.withDefault Regex.never
  -- in
  str
      -- |> Regex.replace (regexFromString "\\s\\s+")
      --     (\match ->
      --         if String.contains "\n\n" match.match then
      --             "\n"

      --         else
      --             " "
      --     )