uvector-0.1: tests/Fusion/find.hs

import Data.Array.Vector
import Data.Bits
main = print . findU (==100) . mapU (`shiftL` 1) . enumFromToU 1 $ (10000 :: Int)