uvector-0.1: tests/Fusion/length-double.hs

import Data.Array.Vector
main = print (lengthU (replicateU 1 (pi :: Double)))