brkl :: (a -> Bool) -> Seq a -> (Seq a, Seq a)
brkl p xs = flip Seq.splitAt xs 
            $ snd 
            $ Fold.foldr (\x (i, j) -> if p x then (i-1, i-1) else (i-1, j)) (l, l) xs
  where
    l = Seq.length xs
    
--- Some sequence helpers --------------------------------------------

-- Rotates the sequence by one position
brkl :: (a -> Bool) -> Seq a -> (Seq a, Seq a)
brkl p xs = flip Seq.splitAt xs 
            $ snd 
            $ Fold.foldr (\x (i, j) -> if p x then (i-1, i-1) else (i-1, j)) (l, l) xs
  where
    l = Seq.length xs
    
--- Some sequence helpers --------------------------------------------

-- Rotates the sequence by one position
brkl p xs = flip Seq.splitAt xs 
            $ snd 
            $ Fold.foldr (\x (i, j) -> if p x then (i-1, i-1) else (i-1, j)) (l, l) xs
  where
    l = Seq.length xs
    
--- Some sequence helpers --------------------------------------------

-- Rotates the sequence by one position