module Substr where

import qualified Data.ByteString as B
import Types

substr :: Int -> Int -> BS -> BS
substr b l = B.take l . B.drop b