encode :: Environment -> Encoder a -> a
encode env encoder = evalState (runReaderT encoder env) litCount
  where litCount = B.size (bimap env)
encode :: Environment -> Encoder a -> a
encode env encoder = evalState (runReaderT encoder env) litCount
  where litCount = B.size (bimap env)
encode env encoder = evalState (runReaderT encoder env) litCount
  where litCount = B.size (bimap env)