>>> flatten (ident 3) [1.0,0.0,0.0,0.0,1.0,0.0,0.0,0.0,1.0] it :: (Num t, Element t) => Vector t
main = simpleHTTP nullConf $ flatten $ do return "flatten me."
xs == flatten (collectCoincident xs)