forwardSearch2 :: IntArray -> Int -> Int -> Elem -> Elem -> IO Int
forwardSearch2 !vec !start !end !x1 !x2 =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_forwardSearch_2 (M.toPtr vec) (fI start) (fI end) (fI x1) (fI x2)



forwardSearch2 :: IntArray -> Int -> Int -> Elem -> Elem -> IO Int
forwardSearch2 !vec !start !end !x1 !x2 =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_forwardSearch_2 (M.toPtr vec) (fI start) (fI end) (fI x1) (fI x2)



forwardSearch2 !vec !start !end !x1 !x2 =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_forwardSearch_2 (M.toPtr vec) (fI start) (fI end) (fI x1) (fI x2)


