Fork of long-forgotten Q3 implementation in Haskell