uvector-0.1.1.1: tests/Fusion/elem.hs

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