keBGR n xs = ( lineData `plusp` [bs] ) : takeBGR n next
  where 
    lineData = (tbgr n xs)
    ml4 = mod (length lineData) 4
    ds = drop (n*3) xs
    bs = take ml4 ds
    next = drop ml4 ds

-- (read . show) $ div (rsInt b) 2


takeBGR n xs = ( lineData `plusp` [bs] ) : takeBGR n next
  where 
    lineData = (tbgr n xs)
    ml4 = mod (length lineData) 4
    ds = drop (n*3) xs
    bs = take ml4 ds
    next = drop ml4 ds

-- (read . show) $ div (rsInt b) 2
takeBGR n xs = ( lineData `plusp` [bs] ) : takeBGR n next
  where 
    lineData = (tbgr n xs)
    ml4 = mod (length lineData) 4
    ds = drop (n*3) xs
    bs = take ml4 ds
    next = drop ml4 ds

-- (read . show) $ div (rsInt b) 2