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