vector-algorithms/Common.hs works