111 B

Reference implementation in Haskell

This is for generating test vectors.