enumFromToCU :: ReifyInt chsz => chsz -> Int -> Int -> Chunked chsz Int
enumFromToCU chsz from to = let sz = reifyInt chsz in
                            if to-from > sz 
                               then consChunks (enumFromToU from (from+sz-1)) $ enumFromToCU chsz (from+sz) to
                               else CU [enumFromToU from to]
enumFromToCU :: ReifyInt chsz => chsz -> Int -> Int -> Chunked chsz Int
enumFromToCU chsz from to = let sz = reifyInt chsz in
                            if to-from > sz 
                               then consChunks (enumFromToU from (from+sz-1)) $ enumFromToCU chsz (from+sz) to
                               else CU [enumFromToU from to]
enumFromToCU chsz from to = let sz = reifyInt chsz in
                            if to-from > sz 
                               then consChunks (enumFromToU from (from+sz-1)) $ enumFromToCU chsz (from+sz) to
                               else CU [enumFromToU from to]