import Data.Maybe ( fromJust )
import GHC.Conc ( getNumProcessors, setNumCapabilities )
import System.IO ( hPutStrLn, stderr )
import Data.Maybe ( fromJust )
import GHC.Conc ( getNumProcessors, setNumCapabilities )
import System.IO ( hPutStrLn, stderr )
arr <- read_word16s input shape
arrSlice <- R.computeUnboxedP
$ z_slice (fromJust slice)
arr <- read_word16s input shape
arrSlice <- R.computeUnboxedP
$ z_slice (fromJust slice)
arrSlice0 <- R.computeUnboxedP $ z_slice 0 raw_output
-- Make doubles from the thresholds which are given as Ints.
arrSlice0 <- R.computeUnboxedP $ z_slice 0 raw_output
-- Make doubles from the thresholds which are given as Ints.
let arr_bracketed = bracket_array lt ut arrSlice0
values <- R.computeUnboxedP $ R.map fromIntegral arr_bracketed
let arr_bracketed = bracket_array lt ut arrSlice0
values <- R.computeUnboxedP $ R.map fromIntegral arr_bracketed