why not directly

``` haskell
codeBits = lookup
```
?