matchOnceBefore :: Regex -> Int -> Rope -> Maybe (Int, Int)
matchOnceBefore regex i rope =
    let r = fst $ R.splitAt i rope
    in  matchOnceEnd regex r
matchOnceBefore :: Regex -> Int -> Rope -> Maybe (Int, Int)
matchOnceBefore regex i rope =
    let r = fst $ R.splitAt i rope
    in  matchOnceEnd regex r
matchOnceBefore regex i rope =
    let r = fst $ R.splitAt i rope
    in  matchOnceEnd regex r