ugly.hs

type JSlice = JudyL Int
type JAll = JudyL JSlice

jinsert :: Word64 -> Int-> JAll -> IO ()
jinsert hv src ht = do
    sl <- slice
    insert keyl src sl
    where
    (keyh, keyl) = hilo hv
    slice = do
        found <- J.member keyh ht 
        unless found $ do
            s <- new
            J.insert keyh s ht

        s <- J.lookup keyh ht
        return (fromJust s)