bufferchain_take :: Int -> BufferChain -> BufferChain
bufferchain_take  = L.take . fromIntegral
bufferchain_take :: Int -> BufferChain -> BufferChain
bufferchain_take  = L.take . fromIntegral
bufferchain_take  = L.take . fromIntegral