Skip to content

Instantly share code, notes, and snippets.

@AndreasPK

AndreasPK/muchCoreSuchWow.hs

Created March 27, 2020 22:13
Show Gist options
  • Save AndreasPK/a631e6c2a59397c1e114d5d6c779e6ec to your computer and use it in GitHub Desktop.
Save AndreasPK/a631e6c2a59397c1e114d5d6c779e6ec to your computer and use it in GitHub Desktop.
Download ZIP
Raw
muchCoreSuchWow.hs
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 17,361, types: 21,327, coercions: 5,089, joins: 99/404}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$trModule2 = "Load"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$trModule1 = TrNameS $trModule2
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$trModule4 = "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$trModule3 = TrNameS $trModule4
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$trModule = Module $trModule3 $trModule1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
load4 = "tmp.png"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
load3 = unpackCString# load4
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
load7
= "Pattern match failure in do expression at Load.hs:25:5-14"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
load6 = unpackCString# load7
-- RHS size: {terms: 3, types: 10, coercions: 8, joins: 0/0}
load5 = noinline (failIO1 `cast` <Co:8>) load6
-- RHS size: {terms: 13, types: 18, coercions: 5, joins: 0/0}
lvl_rOx7
= \ xs_XmBV eta_B1 ->
case xs_XmBV `cast` <Co:5> of { D# ipv_spg9 ->
case touch# ipv_spg9 eta_B1 of state'_apfW { __DEFAULT ->
(# state'_apfW, () #)
}
}
-- RHS size: {terms: 5, types: 15, coercions: 13, joins: 0/0}
$s$fArrayVScse_$s$fArrayVScse_$ctoVector
= \ ds_ajak ->
case ds_ajak `cast` <Co:7> of { VGImage dt_ajan dt1_ajao v1_ajap ->
v1_ajap `cast` <Co:6>
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
f2_rOx8 = I# 1#
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
f1_rOx9 = :. Z f2_rOx8
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
f3_rOxa = :. f1_rOx9 f2_rOx8
-- RHS size: {terms: 6, types: 20, coercions: 10, joins: 0/0}
lvl1_rOxb
= \ x_akNT ->
RDImage ((ADelayed f3_rOxa (\ _ -> x_akNT)) `cast` <Co:10>)
-- RHS size: {terms: 28, types: 3, coercions: 0, joins: 0/0}
lvl2_rOxc
= \ w1_am4D eta_B1 ->
case w1_am4D of {
InputBMP -> $w$cdecode3 eta_B1;
InputGIF -> $w$cdecode8 eta_B1;
InputHDR -> $w$cdecode12 eta_B1;
InputJPG -> $w$cdecode16 eta_B1;
InputPNG -> $w$cdecode21 eta_B1;
InputTIF -> $w$cdecode34 eta_B1;
InputPNM -> $fReadableImagePBM23 eta_B1;
InputTGA -> $w$cdecode25 eta_B1
}
-- RHS size: {terms: 9, types: 48, coercions: 0, joins: 0/0}
$s$fReadableImageInputFormat1
= ($fReadableImageBMP2, $fReadableImageGIF2, $fReadableImageHDR2,
$fReadableImageJPG2, $fReadableImagePNG2, $fReadableImageTGA2,
$fReadableImageTIF2, $fReadableImagePPM4)
-- RHS size: {terms: 3, types: 5, coercions: 0, joins: 0/0}
$s$fReadableImageInputFormat
= C:Readable $fImageFormatInputFormat lvl2_rOxc
-- RHS size: {terms: 26, types: 8, coercions: 0, joins: 0/0}
$wlvl_rOxd
= \ w_sDaT w1_sDaV ->
case w_sDaT of {
OutputBMP -> $fWritableImageBMP15 w1_sDaV;
OutputGIF -> $fWritableImageGIF9 w1_sDaV;
OutputHDR -> $fWritableImageHDR9 w1_sDaV;
OutputJPG -> $w$cencode6 [] w1_sDaV;
OutputPNG -> $fWritableImagePNG23 w1_sDaV;
OutputTIF -> $fWritableImageTIF34 w1_sDaV;
OutputTGA -> $fWritableImageTGA10 w1_sDaV
}
-- RHS size: {terms: 6, types: 8, coercions: 0, joins: 0/0}
lvl3_rOxe = \ w_sDaT _ w2_sDaV -> $wlvl_rOxd w_sDaT w2_sDaV
-- RHS size: {terms: 8, types: 42, coercions: 0, joins: 0/0}
$s$fWritableImageOutputFormat1
= ($fWritableImageBMP2, $fWritableImageGIF2, $fWritableImageHDR2,
$fWritableImageJPG2, $fWritableImagePNG2, $fWritableImageTGA2,
$fWritableImageTIF4)
-- RHS size: {terms: 3, types: 5, coercions: 0, joins: 0/0}
$s$fWritableImageOutputFormat
= C:Writable $fImageFormatOutputFormat lvl3_rOxe
-- RHS size: {terms: 7, types: 18, coercions: 7, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cdeepSeqImage
= \ @ a_aidV ds_aidW b1_aidX ->
case ds_aidW `cast` <Co:7> of { VGImage dt_aie0 dt1_aie1 v1_aie2 ->
b1_aidX
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl4_rOxf = I# 0#
-- RHS size: {terms: 4, types: 12, coercions: 9, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cmdims
= \ @ s_ai4A ds_ai4B -> mdimsVG (ds_ai4B `cast` <Co:9>)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl5_rOxg = "error"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl6_rOxh = unpackCString# lvl5_rOxg
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl7_rOxi
= "vector-0.12.1.2-c720dde2c75edfd48629ef6dcf8b985bc2ae978a"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl8_rOxj = unpackCString# lvl7_rOxi
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl9_rOxk = "Data.Vector.Storable.Mutable"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl10_rOxl = unpackCString# lvl9_rOxk
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl11_rOxm = ".\\\\Data\\\\Vector\\\\Storable\\\\Mutable.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl12_rOxn = unpackCString# lvl11_rOxm
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl13_rOxo = I# 143#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl14_rOxp = I# 16#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl15_rOxq = I# 79#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl16_rOxr
= SrcLoc
lvl8_rOxj
lvl10_rOxl
lvl12_rOxn
lvl13_rOxo
lvl14_rOxp
lvl13_rOxo
lvl15_rOxq
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl17_rOxs = PushCallStack lvl6_rOxh lvl16_rOxr EmptyCallStack
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl18_rOxt = I# 142#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl19_rOxu = I# 15#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl20_rOxv = I# 77#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl21_rOxw
= SrcLoc
lvl8_rOxj
lvl10_rOxl
lvl12_rOxn
lvl18_rOxt
lvl19_rOxu
lvl18_rOxt
lvl20_rOxv
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl22_rOxx = PushCallStack lvl6_rOxh lvl21_rOxw EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl23_rOxy = "Storable.basicUnsafeNew: negative length: "#
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
$wlvl1_rOxz
= \ @ m_sDb0 ww_sDb4 ->
error
(lvl22_rOxx `cast` <Co:4>)
(unpackAppendCString#
lvl23_rOxy
(case $wshowSignedInt 0# ww_sDb4 [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl24_rOxA = ".\\\\Data\\\\Vector\\\\Generic\\\\Mutable.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl25_rOxB = unpackCString# lvl24_rOxA
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl26_rOxC = "new"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl27_rOxD = unpackCString# lvl26_rOxC
-- RHS size: {terms: 9, types: 13, coercions: 0, joins: 0/0}
lvl28_rOxE
= \ @ m_ahGX n#_ahJk ->
$wcheckError
lvl25_rOxB 591# Bounds lvl27_rOxD (checkLength_msg# n#_ahJk)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl29_rOxF = ": dimensions are expected to be positive: "#
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl30_rOxG = : $fShow(,)2 []
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl31_rOxH
= "Graphics.Image.Interface.Vector.Generic.makeImageWindowedVG (window size)"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl32_rOxI = showLitString (unpackCString# lvl31_rOxH) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl2_rOxJ
= \ ww_sDbk ww1_sDbo ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDbk
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDbo w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl32_rOxI)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl33_rOxK
= "hip-1.5.5.0-8691758ea00a6102d967ab7e4defa39e8b793f88"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl34_rOxL = unpackCString# lvl33_rOxK
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl35_rOxM = "Graphics.Image.Interface.Vector.Generic"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl36_rOxN = unpackCString# lvl35_rOxM
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl37_rOxO
= "src\\\\Graphics\\\\Image\\\\Interface\\\\Vector\\\\Generic.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl38_rOxP = unpackCString# lvl37_rOxO
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl39_rOxQ = I# 147#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl40_rOxR = I# 9#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl41_rOxS = I# 151#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl42_rOxT = I# 66#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl43_rOxU
= SrcLoc
lvl34_rOxL
lvl36_rOxN
lvl38_rOxP
lvl39_rOxQ
lvl40_rOxR
lvl41_rOxS
lvl42_rOxT
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl44_rOxV = PushCallStack lvl6_rOxh lvl43_rOxU EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl45_rOxW
= "Window index is outside the image dimensions. window start: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl46_rOxX = " window size: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl47_rOxY = " image dimensions: "#
-- RHS size: {terms: 90, types: 84, coercions: 4, joins: 0/0}
$wlvl3_rOxZ
= \ @ s_sDbr
ww_sDbA
ww1_sDbE
ww2_sDbI
ww3_sDbM
ww4_sDbQ
ww5_sDbU ->
error
(lvl44_rOxV `cast` <Co:4>)
(unpackAppendCString#
lvl45_rOxW
(++_$s++
(unpackAppendCString#
lvl46_rOxX
(++_$s++
(unpackAppendCString#
lvl47_rOxY
(: $fShow(,)4
(case $wshowSignedInt
0#
ww4_sDbQ
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww5_sDbU w2_aiHS of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})
[]))
of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
ww2_sDbI
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww3_sDbM w2_aiHS of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})
[]))
of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
ww_sDbA
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDbE w2_aiHS of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})
[]))
of
{ (# ww7_aiI4, ww8_aiI5 #) ->
: ww7_aiI4 ww8_aiI5
})))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl48_rOy0 = "Storable.basicUnsafeNew: length too large: "#
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
$wlvl4_rOy1
= \ @ s_sDbX ww_sDc1 ->
error
(lvl17_rOxs `cast` <Co:4>)
(unpackAppendCString#
lvl48_rOy0
(case $wshowSignedInt 0# ww_sDc1 [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
$wlvl5_rOy2
= \ @ s_sDc4 ww_sDc8 ->
error
(lvl22_rOxx `cast` <Co:4>)
(unpackAppendCString#
lvl23_rOxy
(case $wshowSignedInt 0# ww_sDc8 [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
file_rOy3 = ".\\\\Data\\\\Vector\\\\Generic.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl49_rOy4 = unpackCString# file_rOy3
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl50_rOy5 = "(!)"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl51_rOy6 = unpackCString# lvl50_rOy5
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl53_rOy8 = "backpermuteVG"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl54_rOy9 = unpackCString# lvl53_rOy8
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl55_rOya = "Index out of bounds <"#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl56_rOyb = ">: "#
-- RHS size: {terms: 60, types: 56, coercions: 0, joins: 0/0}
$wlvl6_rOyc
= \ ww_sDcv ww1_sDcA ww2_sDcF ww3_sDcJ ->
errorVG
lvl54_rOy9
(unpackAppendCString#
lvl55_rOya
(++_$s++
(unpackAppendCString#
lvl56_rOyb
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDcv
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDcA w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
ww2_sDcF
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww3_sDcJ w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl57_rOyd = "slice"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl58_rOye = unpackCString# lvl57_rOyd
-- RHS size: {terms: 12, types: 7, coercions: 0, joins: 0/0}
lvl59_rOyf
= \ n#_ak2V i#_ak2N m#_ak2R ->
$wcheckError
lvl49_rOy4
399#
Bounds
lvl58_rOye
(checkSlice_msg# i#_ak2N m#_ak2R n#_ak2V)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl60_rOyg
= "Graphics.Image.Interface.Vector.Generic.makeImageVGM"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl61_rOyh = showLitString (unpackCString# lvl60_rOyg) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl7_rOyi
= \ ww_sDcT ww1_sDcX ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDcT
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDcX w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl61_rOyh)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl62_rOyj = "multVG"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl63_rOyk = unpackCString# lvl62_rOyj
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl64_rOyl
= "Inner dimensions of images must agree, but received: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl65_rOym = " X "#
-- RHS size: {terms: 60, types: 57, coercions: 0, joins: 0/0}
$wlvl8_rOyn
= \ w_sDd0 ww_sDd6 ww1_sDda ww2_sDde ->
errorVG
lvl63_rOyk
(unpackAppendCString#
lvl64_rOyl
(++_$s++
(unpackAppendCString#
lvl65_rOym
(: $fShow(,)4
(case $wshowSignedInt
0#
ww1_sDda
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww2_sDde w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)4
(case $wshowSignedInt
0#
w_sDd0
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww_sDd6 w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
-- RHS size: {terms: 2, types: 4, coercions: 0, joins: 0/0}
$s$fArrayVScse_$s$fArrayVScse_$ccompute = \ ds_ajax -> ds_ajax
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl66_rOyo = "fromVectorVG"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl67_rOyp = unpackCString# lvl66_rOyo
-- RHS size: {terms: 1, types: 4, coercions: 13, joins: 0/0}
$s$fArrayVScse_$s$fBaseArrayVScse_$cdims = dimsVG `cast` <Co:13>
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl68_rOyq = "Graphics.Image.Interface.Repa.Generic.makeImageR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl69_rOyr = showLitString (unpackCString# lvl68_rOyq) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl9_rOys
= \ ww_sDdx ww1_sDdC ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDdx
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDdC w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl69_rOyr)
-- RHS size: {terms: 45, types: 43, coercions: 15, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImage
= \ sz_akTF f_akTG ->
case sz_akTF of { (ipv_akTN, ipv1_akTO) ->
case ipv_akTN of wild_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_akTO of wild1_XiPg { I# x1_XiPk ->
case <=# x1_XiPk 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild_aiCr) wild1_XiPg)
(\ x2_akU2 -> f_akTG (sh2ix x2_akU2)))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl9_rOys x_aiCt x1_XiPk of wild2_00 { }
}
};
1# ->
case ipv1_akTO of { I# ww1_sDdC ->
case $wlvl9_rOys x_aiCt ww1_sDdC of wild1_00 { }
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl70_rOyt
= "Graphics.Image.Interface.Repa.Generic.makeImageWindowedR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl71_rOyu = showLitString (unpackCString# lvl70_rOyt) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl10_rOyv
= \ ww_sDdM ww1_sDdR ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDdM
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDdR w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl71_rOyu)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl72_rOyw
= "repa-3.4.1.4-601a904fda449415e9a6a22c218bba8c6839f195"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl73_rOyx = unpackCString# lvl72_rOyw
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl74_rOyy = "Data.Array.Repa.Repr.Undefined"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl75_rOyz = unpackCString# lvl74_rOyy
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl76_rOyA = ".\\Data\\Array\\Repa\\Repr\\Undefined.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl77_rOyB = unpackCString# lvl76_rOyA
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl78_rOyC = I# 32#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl79_rOyD = I# 11#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl80_rOyE = I# 54#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl81_rOyF
= SrcLoc
lvl73_rOyx
lvl75_rOyz
lvl77_rOyB
lvl78_rOyC
lvl79_rOyD
lvl78_rOyC
lvl80_rOyE
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl82_rOyG = PushCallStack lvl6_rOxh lvl81_rOyF EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl83_rOyH = "Repa: array element is undefined."#
-- RHS size: {terms: 4, types: 4, coercions: 4, joins: 0/0}
lvl84_rOyI
= error (lvl82_rOyG `cast` <Co:4>) (unpackCString# lvl83_rOyH)
-- RHS size: {terms: 179, types: 119, coercions: 15, joins: 1/6}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImageWindowed
= \ sz_akNY wIx_akNZ wSz_akO0 f_akO1 eta_B1 ->
case sz_akNY of { (ipv_akO4, ipv1_akO5) ->
case wIx_akNZ of { (ipv2_akO9, ipv3_akOa) ->
case wSz_akO0 of { (ipv4_akOj, ipv5_akOk) ->
case ipv_akO4 of wild_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_akO5 of wild1_XiNV { I# x1_XiNZ ->
case <=# x1_XiNZ 0# of {
__DEFAULT ->
case ipv5_akOk of { I# x2_akOW ->
case ipv3_akOa of { I# y_akP0 ->
case ipv4_akOj of { I# x3_akON ->
case ipv2_akO9 of { I# y1_akOR ->
let { y2_akPx = +# x2_akOW y_akP0 } in
let { y3_akQ0 = +# x3_akON y1_akOR } in
(RDImage
((ADelayed
(:. (:. Z wild_aiCr) wild1_XiNV)
(\ ix_akS4 ->
case ix_akS4 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH0p sh2'1_sH0q ->
case sh2'1_sH0q of { I# y4_sH0t ->
case sh2'_al1I of { I# y5_sH0w ->
let { x4_al2u = +# (*# y4_sH0t x1_XiNZ) y5_sH0w } in
case quotInt# x4_al2u x1_XiNZ of wild11_al2A { __DEFAULT ->
case remInt# x4_al2u x1_XiNZ of wild12_al2P { __DEFAULT ->
let { dt1_al2Q = I# wild11_al2A } in
let { j_al0S = I# wild12_al2P } in
join {
$j_snDP
= case >=# wild11_al2A y1_akOR of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# ->
case <# wild11_al2A y3_akQ0 of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# ->
case >=# wild12_al2P y_akP0 of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# ->
case <# wild12_al2P y2_akPx of {
__DEFAULT -> eta_B1 (dt1_al2Q, j_al0S);
1# -> lvl84_rOyI
}
}
}
} } in
case >=# wild11_al2A y1_akOR of {
__DEFAULT -> jump $j_snDP;
1# ->
case <# wild11_al2A y3_akQ0 of {
__DEFAULT -> jump $j_snDP;
1# ->
case >=# wild12_al2P y_akP0 of {
__DEFAULT -> jump $j_snDP;
1# ->
case <# wild12_al2P y2_akPx of {
__DEFAULT -> jump $j_snDP;
1# -> f_akO1 (dt1_al2Q, j_al0S)
}
}
}
}
}
}
}
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
};
1# -> case $wlvl10_rOyv x_aiCt x1_XiNZ of wild2_00 { }
}
};
1# ->
case ipv1_akO5 of { I# ww1_sDdR ->
case $wlvl10_rOyv x_aiCt ww1_sDdR of wild1_00 { }
}
}
}
}
}
}
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl85_rOyJ = :. Z lvl4_rOxf
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
lvl86_rOyK = :. lvl85_rOyJ lvl4_rOxf
-- RHS size: {terms: 112, types: 185, coercions: 58, joins: 0/6}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmap
= \ @ cs'_akNc @ e'_akNd $dArray_akNe eta_B2 eta1_B1 ->
case eta1_B1 `cast` <Co:7> of {
RTImage arr_akNo ->
case arr_akNo `cast` <Co:5> of { AUnboxed sh1_sH0z ds1_sH0A ->
case sh1_sH0z of wild2_sH0D { :. sh2_sH0E sh3_sH0F ->
case sh3_sH0F of { I# y_sH0P ->
let { $dMArray_sl3U = $p2Array $dArray_akNe } in
let { $dBaseArray1_sl3T = $p1MArray $dMArray_sl3U } in
let { $dColorSpace_sl3S = $p2BaseArray $dBaseArray1_sl3T } in
let { lvl205_sHGW = $p7ColorSpace $dColorSpace_sl3S } in
let { lvl206_sH0B = $p1Unbox lvl205_sHGW } in
(RDImage
((ADelayed
wild2_sH0D
(\ x_anAm ->
eta_B2
(fromComponents
$dColorSpace_sl3S
((basicUnsafeIndexM
lvl206_sH0B
$fMonadId
(ds1_sH0A `cast` <Co:7>)
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH0I sh2'1_sH0J ->
case sh2'1_sH0J of { I# y1_sH0M ->
case sh2'_al1I of { I# y2_sH0S ->
I# (+# (*# y1_sH0M y_sH0P) y2_sH0S)
}
}
}
}))
`cast` <Co:4>))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
};
RDImage arr_akNr ->
case arr_akNr `cast` <Co:5> of { ADelayed sh1_sH0V ds1_sH0W ->
case sh1_sH0V of wild2_sH0Y { :. ds2_sH0Z d_sH10 ->
case d_sH10 of { I# y_sH1a ->
(RDImage
((ADelayed
wild2_sH0Y
(\ x_anAm ->
eta_B2
(ds1_sH0W
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH13 sh2'1_sH14 ->
case sh2'1_sH14 of { I# y1_sH17 ->
case sh2'_al1I of { I# y2_sH1d ->
let { x1_al2u = +# (*# y1_sH17 y_sH1a) y2_sH1d } in
case quotInt# x1_al2u y_sH1a of wild8_al2A { __DEFAULT ->
case remInt# x1_al2u y_sH1a of wild9_al2P { __DEFAULT ->
:. (:. Z (I# wild8_al2A)) (I# wild9_al2P)
}
}
}
}
}
}))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
-- RHS size: {terms: 12, types: 9, coercions: 0, joins: 0/0}
lvl87_rOyL
= \ @ e'_akMv @ cs'_akMu x_ajJ5 n#_ajJb ->
$wcheckError
lvl49_rOy4 248# Bounds lvl51_rOy6 (checkIndex_msg# x_ajJ5 n#_ajJb)
-- RHS size: {terms: 114, types: 168, coercions: 65, joins: 0/7}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cimap
= \ @ cs'_akMu @ e'_akMv $dArray_akMw eta_B2 eta1_B1 ->
case eta1_B1 `cast` <Co:7> of {
RTImage arr_akMG ->
case arr_akMG `cast` <Co:5> of { AUnboxed sh1_sH1g ds1_sH1h ->
case sh1_sH1g of wild2_sH1n { :. sh2_sH1o sh3_sH1p ->
case sh3_sH1p of { I# y_sH1v ->
let { $dMArray_sl4G = $p2Array $dArray_akMw } in
let { $dBaseArray1_sl4F = $p1MArray $dMArray_sl4G } in
let { $dColorSpace_sl4E = $p2BaseArray $dBaseArray1_sl4F } in
let { lvl205_sHHf = $p7ColorSpace $dColorSpace_sl4E } in
let { lvl206_sH1L = $p1Unbox lvl205_sHHf } in
let {
lvl207_sH1G = basicLength lvl206_sH1L (ds1_sH1h `cast` <Co:7>) } in
(RDImage
((ADelayed
wild2_sH1n
(\ sh_akMJ ->
case sh_akMJ of { :. ipv_akMM ipv1_akMN ->
case ipv_akMM of { :. ds2_sH1k i_sH1l ->
case i_sH1l of wild5_sH1r { I# y1_sH1s ->
case ipv1_akMN of wild6_sH1x { I# y2_sH1y ->
eta_B2
(wild5_sH1r, wild6_sH1x)
(let { x_ajJ5 = +# (*# y1_sH1s y_sH1v) y2_sH1y } in
case >=# x_ajJ5 0# of {
__DEFAULT ->
case lvl207_sH1G of { I# n#_ajJb -> lvl87_rOyL x_ajJ5 n#_ajJb };
1# ->
case lvl207_sH1G of { I# y3_ajJg ->
case <# x_ajJ5 y3_ajJg of {
__DEFAULT -> lvl87_rOyL x_ajJ5 y3_ajJg;
1# ->
fromComponents
$dColorSpace_sl4E
((basicUnsafeIndexM
lvl206_sH1L $fMonadId (ds1_sH1h `cast` <Co:7>) (I# x_ajJ5))
`cast` <Co:4>)
}
}
})
}
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
};
RDImage arr_akMV ->
case arr_akMV `cast` <Co:5> of { ADelayed sh1_sH1O ds1_sH1P ->
(RDImage
((ADelayed
sh1_sH1O
(\ sh_akMY ->
case sh_akMY of sh2_akMZ { :. ipv_akN1 ipv1_akN2 ->
case ipv_akN1 of { :. ds2_sH1S i_sH1T ->
eta_B2 (i_sH1T, ipv1_akN2) (ds1_sH1P sh2_akMZ)
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
-- RHS size: {terms: 865, types: 905, coercions: 236, joins: 7/46}
$s$fArrayRSUcse_$s$fArrayRSUcse_$czipWith
= \ @ cs1_akKL
@ e1_akKM
@ cs2_akKN
@ e2_akKO
$dArray_akKP
$dArray1_akKQ
eta_B3
eta1_B2
eta2_B1 ->
join {
$w$j_sDeK ww_sDex ww1_sDeB ww2_sDeH w_sDeq
= case eta2_B1 `cast` <Co:7> of {
RTImage arr_akLj ->
case arr_akLj `cast` <Co:5> of { AUnboxed sh2_sH3g ds2_sH3h ->
case sh2_sH3g of { :. sh1_sH3l sh4_sH3m ->
case sh4_sH3m of { I# y_sH3w ->
let { $dMArray_sl5b = $p2Array $dArray1_akKQ } in
let { $dBaseArray1_sl5a = $p1MArray $dMArray_sl5b } in
let { $dColorSpace_sl59 = $p2BaseArray $dBaseArray1_sl5a } in
let { lvl205_sHIm = $p7ColorSpace $dColorSpace_sl59 } in
let { lvl206_sH3i = $p1Unbox lvl205_sHIm } in
let {
sc_sKZt
= \ ix_akLq ->
fromComponents
$dColorSpace_sl59
((basicUnsafeIndexM
lvl206_sH3i
$fMonadId
(ds2_sH3h `cast` <Co:7>)
(case ix_akLq of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH3p sh2'1_sH3q ->
case sh2'1_sH3q of { I# y1_sH3t ->
case sh2'_al1I of { I# y2_sH3z ->
I# (+# (*# y1_sH3t y_sH3w) y2_sH3z)
}
}
}
}))
`cast` <Co:4>) } in
case sh1_sH3l of ww3_sH1Z { :. ww4_sH20 ww5_sH21 ->
case ww5_sH21 of ww6_sH23 { I# ww7_sH24 ->
join {
fail_sl53 _
= let { ds4_smmE = I# ww2_sDeH } in
let { ds3_sDCf = I# ww1_sDeB } in
let { ds5_smmD = :. ww_sDex ds3_sDCf } in
let { wild4_smmC = :. ds5_smmD ds4_smmE } in
case ww7_sH24 of ds9_akLP {
__DEFAULT ->
join {
$j_srqJ dt_XnHI
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2a sh2'1_sH2b ->
case sh2'1_sH2b of { I# y1_sH2e ->
case sh2'_al1I of { I# y2_sH2h ->
let { x_al2u = +# (*# y1_sH2e ww2_sDeH) y2_sH2h } in
case quotInt# x_al2u ww2_sDeH of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
}))
(sc_sKZt
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2k sh2'1_sH2l ->
case sh2'1_sH2l of { I# y1_sH2o ->
case sh2'_al1I of { I# y2_sH2r ->
let { x_al2u = +# (*# y1_sH2o y_sH3w) y2_sH2r } in
case quotInt# x_al2u y_sH3w of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u y_sH3w of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH y_sH3w of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHI (I# y_sH3w)) get_al5q) `cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHI ds4_smmE) get_al5q) `cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB ds9_akLP of {
__DEFAULT -> jump $j_srqJ (:. Z ww6_sH23);
1# -> jump $j_srqJ (:. Z ds3_sDCf)
};
1# ->
case y_sH3w of ds11_akLU {
__DEFAULT ->
join {
$j_srrk dt_XnHM
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2u sh2'1_sH2v ->
case sh2'1_sH2v of { I# y1_sH2y ->
case sh2'_al1I of { I# y2_sH2B ->
let {
x_al2u = +# (*# y1_sH2y ww2_sDeH) y2_sH2B } in
case quotInt# x_al2u ww2_sDeH of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
}))
(sc_sKZt
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2E sh2'1_sH2F ->
case sh2'1_sH2F of { I# y1_sH2I ->
case sh2'_al1I of { I# y2_sH2L ->
let {
x_al2u = +# (*# y1_sH2I ds11_akLU) y2_sH2L } in
case quotInt# x_al2u ds11_akLU of wild9_al2A
{ __DEFAULT ->
case remInt# x_al2u ds11_akLU of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH ds11_akLU of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHM (I# ds11_akLU)) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHM ds4_smmE) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB 1# of {
__DEFAULT -> jump $j_srrk (:. Z ww6_sH23);
1# -> jump $j_srrk (:. Z ds3_sDCf)
};
1# ->
(RDImage
((ADelayed
wild4_smmC
(let { ds12_sl5d = sc_sKZt lvl86_rOyK } in
\ x_anAm ->
eta_B3
(w_sDeq
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2S sh2'1_sH2T ->
case sh2'1_sH2T of { I# y1_sH2W ->
case sh2'_al1I of { I# y2_sH2Z ->
let { x1_al2u = +# (*# y1_sH2W ww2_sDeH) y2_sH2Z } in
case quotInt# x1_al2u ww2_sDeH of wild9_al2A
{ __DEFAULT ->
case remInt# x1_al2u ww2_sDeH of wild10_al2P
{ __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
}
}
}
}
}))
ds12_sl5d))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDeB of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
case ww2_sDeH of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
(RDImage
((ADelayed
(:. ww3_sH1Z (I# y_sH3w))
(let { f_anAk = eta_B3 (w_sDeq lvl86_rOyK) } in
\ x_anAm ->
f_anAk
(sc_sKZt
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH36 sh2'1_sH37 ->
case sh2'1_sH37 of { I# y1_sH3a ->
case sh2'_al1I of { I# y2_sH3d ->
let { x1_al2u = +# (*# y1_sH3a y_sH3w) y2_sH3d } in
case quotInt# x1_al2u y_sH3w of wild8_al2A { __DEFAULT ->
case remInt# x1_al2u y_sH3w of wild9_al2P { __DEFAULT ->
:. (:. Z (I# wild8_al2A)) (I# wild9_al2P)
}
}
}
}
}
}))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
};
RDImage arr_akLs ->
case arr_akLs `cast` <Co:5> of { ADelayed ww4_sH3C ww5_sH3D ->
case ww4_sH3C of ww6_sH1V { :. ww7_sH1W ww8_sH1X ->
case ww7_sH1W of { :. ww10_sH20 ww11_sH21 ->
case ww11_sH21 of ww12_sH23 { I# ww13_sH24 ->
case ww8_sH1X of ww14_sH26 { I# ww15_sH27 ->
join {
fail_sl53 _
= let { ds4_smmE = I# ww2_sDeH } in
let { ds3_sDCf = I# ww1_sDeB } in
let { ds1_smmD = :. ww_sDex ds3_sDCf } in
let { wild1_smmC = :. ds1_smmD ds4_smmE } in
case ww13_sH24 of ds9_akLP {
__DEFAULT ->
join {
$j_srqJ dt_XnHI
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2a sh2'1_sH2b ->
case sh2'1_sH2b of { I# y1_sH2e ->
case sh2'_al1I of { I# y2_sH2h ->
let { x_al2u = +# (*# y1_sH2e ww2_sDeH) y2_sH2h } in
case quotInt# x_al2u ww2_sDeH of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
}))
(ww5_sH3D
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2k sh2'1_sH2l ->
case sh2'1_sH2l of { I# y1_sH2o ->
case sh2'_al1I of { I# y2_sH2r ->
let { x_al2u = +# (*# y1_sH2o ww15_sH27) y2_sH2r } in
case quotInt# x_al2u ww15_sH27 of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ww15_sH27 of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH ww15_sH27 of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHI ww14_sH26) get_al5q) `cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHI ds4_smmE) get_al5q) `cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB ds9_akLP of {
__DEFAULT -> jump $j_srqJ (:. Z ww12_sH23);
1# -> jump $j_srqJ (:. Z ds3_sDCf)
};
1# ->
case ww15_sH27 of ds11_akLU {
__DEFAULT ->
join {
$j_srrk dt_XnHM
= let {
get_al5q
= \ ix_al5s ->
eta_B3
(w_sDeq
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2u sh2'1_sH2v ->
case sh2'1_sH2v of { I# y1_sH2y ->
case sh2'_al1I of { I# y2_sH2B ->
let {
x_al2u = +# (*# y1_sH2y ww2_sDeH) y2_sH2B } in
case quotInt# x_al2u ww2_sDeH of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ww2_sDeH of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
}))
(ww5_sH3D
(case ix_al5s of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2E sh2'1_sH2F ->
case sh2'1_sH2F of { I# y1_sH2I ->
case sh2'_al1I of { I# y2_sH2L ->
let {
x_al2u = +# (*# y1_sH2I ds11_akLU) y2_sH2L } in
case quotInt# x_al2u ds11_akLU of wild6_al2A
{ __DEFAULT ->
case remInt# x_al2u ds11_akLU of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
})) } in
case <=# ww2_sDeH ds11_akLU of {
__DEFAULT ->
(RDImage
((ADelayed (:. dt_XnHM ww14_sH26) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>;
1# ->
(RDImage
((ADelayed (:. dt_XnHM ds4_smmE) get_al5q)
`cast` <Co:6>))
`cast` <Co:9>
} } in
case <=# ww1_sDeB 1# of {
__DEFAULT -> jump $j_srrk (:. Z ww12_sH23);
1# -> jump $j_srrk (:. Z ds3_sDCf)
};
1# ->
(RDImage
((ADelayed
wild1_smmC
(let { ds12_sl5d = ww5_sH3D lvl86_rOyK } in
\ x_anAm ->
eta_B3
(w_sDeq
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH2S sh2'1_sH2T ->
case sh2'1_sH2T of { I# y1_sH2W ->
case sh2'_al1I of { I# y2_sH2Z ->
let { x1_al2u = +# (*# y1_sH2W ww2_sDeH) y2_sH2Z } in
case quotInt# x1_al2u ww2_sDeH of wild6_al2A
{ __DEFAULT ->
case remInt# x1_al2u ww2_sDeH of wild7_al2P
{ __DEFAULT ->
:. (:. Z (I# wild6_al2A)) (I# wild7_al2P)
}
}
}
}
}
}))
ds12_sl5d))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDeB of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
case ww2_sDeH of {
__DEFAULT -> jump fail_sl53 void#;
1# ->
(RDImage
((ADelayed
ww6_sH1V
(let { f_anAk = eta_B3 (w_sDeq lvl86_rOyK) } in
\ x_anAm ->
f_anAk
(ww5_sH3D
(case x_anAm of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH36 sh2'1_sH37 ->
case sh2'1_sH37 of { I# y1_sH3a ->
case sh2'_al1I of { I# y2_sH3d ->
let { x1_al2u = +# (*# y1_sH3a ww15_sH27) y2_sH3d } in
case quotInt# x1_al2u ww15_sH27 of wild5_al2A { __DEFAULT ->
case remInt# x1_al2u ww15_sH27 of wild6_al2P { __DEFAULT ->
:. (:. Z (I# wild5_al2A)) (I# wild6_al2P)
}
}
}
}
}
}))))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
}
} } in
case eta1_B2 `cast` <Co:7> of {
RTImage arr_akL5 ->
case arr_akL5 `cast` <Co:5> of { AUnboxed sh2_sH3G ds2_sH3H ->
case sh2_sH3G of { :. ww1_sH3K ww2_sH3L ->
case ww1_sH3K of { :. ww4_sH3O ww5_sH3P ->
case ww5_sH3P of { I# ww7_sH3S ->
case ww2_sH3L of { I# ww9_sH3V ->
let { $dMArray1_sl58 = $p2Array $dArray_akKP } in
let { $dBaseArray2_sl57 = $p1MArray $dMArray1_sl58 } in
let { $dColorSpace1_sl56 = $p2BaseArray $dBaseArray2_sl57 } in
let { lvl205_sHIy = $p7ColorSpace $dColorSpace1_sl56 } in
let { lvl206_sH3W = $p1Unbox lvl205_sHIy } in
jump $w$j_sDeK
ww4_sH3O
ww7_sH3S
ww9_sH3V
(\ ix_akLc ->
fromComponents
$dColorSpace1_sl56
((basicUnsafeIndexM
lvl206_sH3W
$fMonadId
(ds2_sH3H `cast` <Co:7>)
(case ix_akLc of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH3Z sh2'1_sH40 ->
case sh2'1_sH40 of { I# y1_sH43 ->
case sh2'_al1I of { I# y2_sH46 ->
I# (+# (*# y1_sH43 ww9_sH3V) y2_sH46)
}
}
}
}))
`cast` <Co:4>))
}
}
}
}
};
RDImage arr_akLe ->
case arr_akLe `cast` <Co:5> of { ADelayed sh2_sH49 ds2_sH4a ->
case sh2_sH49 of { :. ww1_sH4d ww2_sH4e ->
case ww1_sH4d of { :. ww4_sH4h ww5_sH4i ->
case ww5_sH4i of { I# ww7_sH4l ->
case ww2_sH4e of { I# ww9_sH4o ->
jump $w$j_sDeK ww4_sH4h ww7_sH4l ww9_sH4o ds2_sH4a
}
}
}
}
}
}
-- RHS size: {terms: 481, types: 611, coercions: 154, joins: 7/28}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cizipWith
= \ @ cs1_akHi
@ e1_akHj
@ cs2_akHk
@ e2_akHl
$dArray_akHm
$dArray1_akHn
eta_B3
eta1_B2
eta2_B1 ->
join {
$w$j_sDfx ww_sDfk ww1_sDfo ww2_sDfu w_sDfd
= case eta2_B1 `cast` <Co:7> of {
RTImage arr_akHQ ->
case arr_akHQ `cast` <Co:5> of { AUnboxed sh2_sH4Z ds2_sH50 ->
case sh2_sH4Z of { :. sh1_sH54 sh4_sH55 ->
case sh4_sH55 of { I# y_sH5f ->
let { $dMArray_sl6C = $p2Array $dArray1_akHn } in
let { $dBaseArray1_sl6B = $p1MArray $dMArray_sl6C } in
let { $dColorSpace_sl6A = $p2BaseArray $dBaseArray1_sl6B } in
let { lvl205_sHJq = $p7ColorSpace $dColorSpace_sl6A } in
let { lvl206_sH51 = $p1Unbox lvl205_sHJq } in
let {
sc_sKZ1
= \ ix_akHX ->
fromComponents
$dColorSpace_sl6A
((basicUnsafeIndexM
lvl206_sH51
$fMonadId
(ds2_sH50 `cast` <Co:7>)
(case ix_akHX of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH58 sh2'1_sH59 ->
case sh2'1_sH59 of { I# y1_sH5c ->
case sh2'_al1I of { I# y2_sH5i ->
I# (+# (*# y1_sH5c y_sH5f) y2_sH5i)
}
}
}
}))
`cast` <Co:4>) } in
case sh1_sH54 of ww3_sH4u { :. ww4_sH4v ww5_sH4w ->
case ww5_sH4w of ww6_sH4y { I# ww7_sH4z ->
join {
fail_sl6u _
= let { ds4_smo7 = I# ww2_sDfu } in
let { ds3_sDE0 = I# ww1_sDfo } in
join {
fail1_sl6E _
= join {
$j_sny7 dt_XkfS
= let {
getNewPx_sl6Y
= \ getPx1_akIy getPx2_akIz sh_akIA ->
case sh_akIA of sh5_akIE { :. ipv_akIG ipv1_akIH ->
case ipv_akIG of { :. ds10_sH4F i_sH4G ->
eta_B3
(i_sH4G, ipv1_akIH)
(getPx1_akIy sh5_akIE)
(getPx2_akIz sh5_akIE)
}
} } in
(RDImage
((ADelayed
dt_XkfS
(getNewPx_sl6Y (\ ix_anvA -> w_sDfd ix_anvA) sc_sKZ1))
`cast` <Co:10>))
`cast` <Co:9> } in
case <=# ww1_sDfo ww7_sH4z of {
__DEFAULT ->
case <=# ww2_sDfu y_sH5f of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ww6_sH4y) (I# y_sH5f));
1# -> jump $j_sny7 (:. (:. Z ww6_sH4y) ds4_smo7)
};
1# ->
case <=# ww2_sDfu y_sH5f of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ds3_sDE0) (I# y_sH5f));
1# -> jump $j_sny7 (:. (:. Z ds3_sDE0) ds4_smo7)
}
} } in
case ww7_sH4z of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
case y_sH5f of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
let { lvl207_smo3 = sc_sKZ1 lvl86_rOyK } in
(RDImage
((ADelayed
(:. (:. ww_sDfk ds3_sDE0) ds4_smo7)
(\ sh_akJO ->
case sh_akJO of sh3_akJP { :. ipv2_akJR ipv3_akJS ->
case ipv2_akJR of { :. ds12_sH4N i_sH4O ->
case w_sDfd sh3_akJP of px1_akJU { __DEFAULT ->
eta_B3 (i_sH4O, ipv3_akJS) px1_akJU lvl207_smo3
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDfo of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
case ww2_sDfu of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
let { lvl207_smop = w_sDfd lvl86_rOyK } in
(RDImage
((ADelayed
(:. ww3_sH4u (I# y_sH5f))
(\ sh_akKx ->
case sh_akKx of sh3_akKy { :. ipv2_akKA ipv3_akKB ->
case ipv2_akKA of { :. ds11_sH4V i_sH4W ->
eta_B3 (i_sH4W, ipv3_akKB) lvl207_smop (sc_sKZ1 sh3_akKy)
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
};
RDImage arr_akHZ ->
case arr_akHZ `cast` <Co:5> of { ADelayed ww4_sH5l ww5_sH5m ->
case ww4_sH5l of ww6_sH4q { :. ww7_sH4r ww8_sH4s ->
case ww7_sH4r of { :. ww10_sH4v ww11_sH4w ->
case ww11_sH4w of ww12_sH4y { I# ww13_sH4z ->
case ww8_sH4s of ww14_sH4B { I# ww15_sH4C ->
join {
fail_sl6u _
= let { ds4_smo7 = I# ww2_sDfu } in
let { ds3_sDE0 = I# ww1_sDfo } in
join {
fail1_sl6E _
= join {
$j_sny7 dt_XkfS
= let {
getNewPx_sl6Y
= \ getPx1_akIy getPx2_akIz sh_akIA ->
case sh_akIA of sh4_akIE { :. ipv_akIG ipv1_akIH ->
case ipv_akIG of { :. ds10_sH4F i_sH4G ->
eta_B3
(i_sH4G, ipv1_akIH)
(getPx1_akIy sh4_akIE)
(getPx2_akIz sh4_akIE)
}
} } in
(RDImage
((ADelayed
dt_XkfS
(getNewPx_sl6Y
(\ ix_anvA -> w_sDfd ix_anvA)
(\ ix_anvA -> ww5_sH5m ix_anvA)))
`cast` <Co:10>))
`cast` <Co:9> } in
case <=# ww1_sDfo ww13_sH4z of {
__DEFAULT ->
case <=# ww2_sDfu ww15_sH4C of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ww12_sH4y) ww14_sH4B);
1# -> jump $j_sny7 (:. (:. Z ww12_sH4y) ds4_smo7)
};
1# ->
case <=# ww2_sDfu ww15_sH4C of {
__DEFAULT -> jump $j_sny7 (:. (:. Z ds3_sDE0) ww14_sH4B);
1# -> jump $j_sny7 (:. (:. Z ds3_sDE0) ds4_smo7)
}
} } in
case ww13_sH4z of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
case ww15_sH4C of {
__DEFAULT -> jump fail1_sl6E void#;
1# ->
let { lvl205_smo3 = ww5_sH5m lvl86_rOyK } in
(RDImage
((ADelayed
(:. (:. ww_sDfk ds3_sDE0) ds4_smo7)
(\ sh_akJO ->
case sh_akJO of sh3_akJP { :. ipv2_akJR ipv3_akJS ->
case ipv2_akJR of { :. ds12_sH4N i_sH4O ->
case w_sDfd sh3_akJP of px1_akJU { __DEFAULT ->
eta_B3 (i_sH4O, ipv3_akJS) px1_akJU lvl205_smo3
}
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
} } in
case ww1_sDfo of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
case ww2_sDfu of {
__DEFAULT -> jump fail_sl6u void#;
1# ->
let { lvl205_smop = w_sDfd lvl86_rOyK } in
(RDImage
((ADelayed
ww6_sH4q
(\ sh_akKx ->
case sh_akKx of sh3_akKy { :. ipv2_akKA ipv3_akKB ->
case ipv2_akKA of { :. ds11_sH4V i_sH4W ->
eta_B3 (i_sH4W, ipv3_akKB) lvl205_smop (ww5_sH5m sh3_akKy)
}
}))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
}
}
}
} } in
case eta1_B2 `cast` <Co:7> of {
RTImage arr_akHC ->
case arr_akHC `cast` <Co:5> of { AUnboxed sh2_sH5p ds2_sH5q ->
case sh2_sH5p of { :. ww1_sH5t ww2_sH5u ->
case ww1_sH5t of { :. ww4_sH5x ww5_sH5y ->
case ww5_sH5y of { I# ww7_sH5B ->
case ww2_sH5u of { I# ww9_sH5E ->
let { $dMArray1_sl6z = $p2Array $dArray_akHm } in
let { $dBaseArray2_sl6y = $p1MArray $dMArray1_sl6z } in
let { $dColorSpace1_sl6x = $p2BaseArray $dBaseArray2_sl6y } in
let { lvl205_sHJC = $p7ColorSpace $dColorSpace1_sl6x } in
let { lvl206_sH5F = $p1Unbox lvl205_sHJC } in
jump $w$j_sDfx
ww4_sH5x
ww7_sH5B
ww9_sH5E
(\ ix_akHJ ->
fromComponents
$dColorSpace1_sl6x
((basicUnsafeIndexM
lvl206_sH5F
$fMonadId
(ds2_sH5q `cast` <Co:7>)
(case ix_akHJ of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH5I sh2'1_sH5J ->
case sh2'1_sH5J of { I# y1_sH5M ->
case sh2'_al1I of { I# y2_sH5P ->
I# (+# (*# y1_sH5M ww9_sH5E) y2_sH5P)
}
}
}
}))
`cast` <Co:4>))
}
}
}
}
};
RDImage arr_akHL ->
case arr_akHL `cast` <Co:5> of { ADelayed sh2_sH5S ds2_sH5T ->
case sh2_sH5S of { :. ww1_sH5W ww2_sH5X ->
case ww1_sH5W of { :. ww4_sH60 ww5_sH61 ->
case ww5_sH61 of { I# ww7_sH64 ->
case ww2_sH5X of { I# ww9_sH67 ->
jump $w$j_sDfx ww4_sH60 ww7_sH64 ww9_sH67 ds2_sH5T
}
}
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl88_rOyM = "Graphics.Image.Interface.Repa.Generic.traverseR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl89_rOyN = showLitString (unpackCString# lvl88_rOyM) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl11_rOyO
= \ ww_sDfF ww1_sDfK ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDfF
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDfK w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl89_rOyN)
-- RHS size: {terms: 139, types: 230, coercions: 54, joins: 0/7}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse
= \ @ cs'_akGj @ e'_akGk $dArray_akGl eta_B3 eta1_B2 eta2_B1 ->
let {
arr_al4O
= case eta_B3 `cast` <Co:7> of {
RTImage arr1_akGA ->
case arr1_akGA `cast` <Co:5> of { AUnboxed sh2_sH6e ds1_sH6f ->
case sh2_sH6e of wild2_sH6i { :. sh1_sH6j sh4_sH6k ->
case sh4_sH6k of { I# y_sH6u ->
let { $dMArray_sl7h = $p2Array $dArray_akGl } in
let { $dBaseArray1_sl7g = $p1MArray $dMArray_sl7h } in
let { $dColorSpace_sl7f = $p2BaseArray $dBaseArray1_sl7g } in
let { lvl205_sHKL = $p7ColorSpace $dColorSpace_sl7f } in
let { lvl206_sH6g = $p1Unbox lvl205_sHKL } in
(ADelayed
wild2_sH6i
(\ ix_akGH ->
fromComponents
$dColorSpace_sl7f
((basicUnsafeIndexM
lvl206_sH6g
$fMonadId
(ds1_sH6f `cast` <Co:7>)
(case ix_akGH of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH6n sh2'1_sH6o ->
case sh2'1_sH6o of { I# y1_sH6r ->
case sh2'_al1I of { I# y2_sH6x ->
I# (+# (*# y1_sH6r y_sH6u) y2_sH6x)
}
}
}
}))
`cast` <Co:4>)))
`cast` <Co:6>
}
}
};
RDImage arr1_akGJ -> arr1_akGJ
} } in
case eta1_B2
(case arr_al4O `cast` <Co:5> of { ADelayed sh1_antb ds1_antc ->
case sh1_antb of { :. ds2_sH6A j_sH6B ->
case ds2_sH6A of { :. ds3_sH6E i_sH6F -> (i_sH6F, j_sH6B) }
}
})
of
{ (m_akGS, n_akGT) ->
case m_akGS of wild1_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case n_akGT of wild2_XiQq { I# x1_XiQu ->
case <=# x1_XiQu 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild1_aiCr) wild2_XiQq)
(let {
f4_sl7e
= eta2_B1
(\ x2_akHd ->
case arr_al4O `cast` <Co:5> of { ADelayed ds1_anvD f_anvE ->
f_anvE
(case x2_akHd of { (i_al7l, j_al7m) ->
case i_al7l of dt_XkvC { I# ipv_snx6 ->
case j_al7m of dt1_Xkzj { I# ipv1_snx9 ->
:. (:. Z dt_XkvC) dt1_Xkzj
}
}
})
}) } in
\ x2_akHe -> f4_sl7e (sh2ix x2_akHe)))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl11_rOyO x_aiCt x1_XiQu of wild3_00 { }
}
};
1# ->
case n_akGT of { I# ww1_sDfK ->
case $wlvl11_rOyO x_aiCt ww1_sDfK of wild2_00 { }
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl90_rOyP = "Graphics.Image.Interface.Repa.Generic.traverse2R"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl91_rOyQ = showLitString (unpackCString# lvl90_rOyP) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl12_rOyR
= \ ww_sDfU ww1_sDfZ ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDfU
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDfZ w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl91_rOyQ)
-- RHS size: {terms: 221, types: 363, coercions: 71, joins: 2/13}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse2
= \ @ cs1_akEd
@ e1_akEe
@ cs2_akEf
@ e2_akEg
$dArray_akEh
$dArray1_akEi
eta_B4
eta1_B3
eta2_B2
eta3_B1 ->
join {
$w$j_sDgs ww_sDgo ww1_sDgq w_sDgh
= join {
$w$j1_sDgf ww2_sDgb ww3_sDgd w1_sDg4
= case eta2_B2 (ww_sDgo, ww1_sDgq) (ww2_sDgb, ww3_sDgd) of
{ (m_akFQ, n_akFR) ->
case m_akFQ of wild1_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case n_akFR of wild2_XiRa { I# x1_XiRe ->
case <=# x1_XiRe 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild1_aiCr) wild2_XiRa)
(let {
f4_sl7F
= eta3_B1
(\ x2_akGc -> w_sDgh (ix2sh x2_akGc))
(\ x2_akGe -> w1_sDg4 (ix2sh x2_akGe)) } in
\ x2_akGf -> f4_sl7F (sh2ix x2_akGf)))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl12_rOyR x_aiCt x1_XiRe of wild3_00 { }
}
};
1# ->
case n_akFR of { I# ww5_sDfZ ->
case $wlvl12_rOyR x_aiCt ww5_sDfZ of wild2_00 { }
}
}
}
} } in
case eta1_B3 `cast` <Co:7> of {
RTImage arr_akFd ->
case arr_akFd `cast` <Co:5> of { AUnboxed sh2_sH6M ds2_sH6N ->
case sh2_sH6M of { :. ww3_sH6Q ww4_sH6R ->
case ww3_sH6Q of { :. ww6_sH6U ww7_sH6V ->
case ww4_sH6R of wild3_sH75 { I# y_sH76 ->
let { $dMArray_sl7L = $p2Array $dArray1_akEi } in
let { $dBaseArray1_sl7K = $p1MArray $dMArray_sl7L } in
let { $dColorSpace_sl7J = $p2BaseArray $dBaseArray1_sl7K } in
let { lvl205_sHLl = $p7ColorSpace $dColorSpace_sl7J } in
let { lvl206_sH6W = $p1Unbox lvl205_sHLl } in
jump $w$j1_sDgf
ww7_sH6V
wild3_sH75
(\ ix_akFk ->
fromComponents
$dColorSpace_sl7J
((basicUnsafeIndexM
lvl206_sH6W
$fMonadId
(ds2_sH6N `cast` <Co:7>)
(case ix_akFk of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH6Z sh2'1_sH70 ->
case sh2'1_sH70 of { I# y1_sH73 ->
case sh2'_al1I of { I# y2_sH79 ->
I# (+# (*# y1_sH73 y_sH76) y2_sH79)
}
}
}
}))
`cast` <Co:4>))
}
}
}
};
RDImage arr_akFm ->
case arr_akFm `cast` <Co:5> of { ADelayed sh1_sH7c ds1_sH7d ->
case sh1_sH7c of { :. ww3_sH7g ww4_sH7h ->
case ww3_sH7g of { :. ww6_sH7k ww7_sH7l ->
jump $w$j1_sDgf ww7_sH7l ww4_sH7h ds1_sH7d
}
}
}
} } in
case eta_B4 `cast` <Co:7> of {
RTImage arr_akF0 ->
case arr_akF0 `cast` <Co:5> of { AUnboxed sh2_sH7o ds2_sH7p ->
case sh2_sH7o of { :. ww1_sH7s ww2_sH7t ->
case ww1_sH7s of { :. ww4_sH7w ww5_sH7x ->
case ww2_sH7t of wild3_sH7H { I# y_sH7I ->
let { $dMArray1_sl7I = $p2Array $dArray_akEh } in
let { $dBaseArray2_sl7H = $p1MArray $dMArray1_sl7I } in
let { $dColorSpace1_sl7G = $p2BaseArray $dBaseArray2_sl7H } in
let { lvl205_sHLy = $p7ColorSpace $dColorSpace1_sl7G } in
let { lvl206_sH7y = $p1Unbox lvl205_sHLy } in
jump $w$j_sDgs
ww5_sH7x
wild3_sH7H
(\ ix_akF7 ->
fromComponents
$dColorSpace1_sl7G
((basicUnsafeIndexM
lvl206_sH7y
$fMonadId
(ds2_sH7p `cast` <Co:7>)
(case ix_akF7 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sH7B sh2'1_sH7C ->
case sh2'1_sH7C of { I# y1_sH7F ->
case sh2'_al1I of { I# y2_sH7L ->
I# (+# (*# y1_sH7F y_sH7I) y2_sH7L)
}
}
}
}))
`cast` <Co:4>))
}
}
}
};
RDImage arr_akF9 ->
case arr_akF9 `cast` <Co:5> of { ADelayed sh1_sH7O ds1_sH7P ->
case sh1_sH7O of { :. ww1_sH7S ww2_sH7T ->
case ww1_sH7S of { :. ww4_sH7W ww5_sH7X ->
jump $w$j_sDgs ww5_sH7X ww2_sH7T ds1_sH7P
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl92_rOyT = "backpermuteR"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl93_rOyU = showLitString (unpackCString# lvl92_rOyT) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
$wlvl13_rOyV
= \ ww_sDgX ww1_sDh2 ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww_sDgX
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww1_sDh2 w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl93_rOyU)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl94_rOyW = "Graphics.Image.Interface.Repa.Generic"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl95_rOyX = unpackCString# lvl94_rOyW
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl96_rOyY
= "src\\\\Graphics\\\\Image\\\\Interface\\\\Repa\\\\Generic.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl97_rOyZ = unpackCString# lvl96_rOyY
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl98_rOz0 = I# 314#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl99_rOz1 = I# 10#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl100_rOz2
= SrcLoc
lvl34_rOxL
lvl95_rOyX
lvl97_rOyZ
lvl98_rOz0
lvl99_rOz1
lvl98_rOz0
lvl20_rOxv
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl101_rOz3 = PushCallStack lvl6_rOxh lvl100_rOz2 EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl102_rOz4
= "fromListsRepa: Inner lists do not all have an equal length."#
-- RHS size: {terms: 4, types: 6, coercions: 4, joins: 0/0}
lvl103_rOz5
= error (lvl101_rOz3 `cast` <Co:4>) (unpackCString# lvl102_rOz4)
-- RHS size: {terms: 22, types: 36, coercions: 59, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfromVector
= \ sz_ak8v eta_B1 ->
case sz_ak8v of { (ipv_akcg, ipv1_akch) ->
case ipv_akcg of dt_Xkch { I# ipv2_smzG ->
case ipv1_akch of dt1_XkxF { I# ipv3_smzJ ->
case eta_B1 `cast` <Co:24> of nt_snkn
{ Vector ipv4_snkq ipv5_snqe ipv6_snqf ->
(RTImage
((AUnboxed (:. (:. Z dt_Xkch) dt1_XkxF) (nt_snkn `cast` <Co:20>))
`cast` <Co:6>))
`cast` <Co:9>
}
}
}
}
-- RHS size: {terms: 29, types: 57, coercions: 17, joins: 0/0}
$s$fArrayRSUcse_$s$fBaseArrayRSUcse_$cdims
= \ ds_alXT ->
case ds_alXT `cast` <Co:7> of {
RTImage arr_alXW ->
case arr_alXW `cast` <Co:5> of { AUnboxed sh2_sH9E ds1_sH9F ->
case sh2_sH9E of { :. ds2_sH9I j_sH9J ->
case ds2_sH9I of { :. ds3_sH9M i_sH9N -> (i_sH9N, j_sH9J) }
}
};
RDImage arr_alYe ->
case arr_alYe `cast` <Co:5> of { ADelayed sh2_sH9Q ds1_sH9R ->
case sh2_sH9Q of { :. ds2_sH9U j_sH9V ->
case ds2_sH9U of { :. ds3_sH9Y i_sH9Z -> (i_sH9Z, j_sH9V) }
}
}
}
-- RHS size: {terms: 3, types: 3, coercions: 34, joins: 0/0}
$s$fArrayRSUcse_$s$fEqPixel0
= C:Eq (eqDouble `cast` <Co:17>) ($fEqDouble_$c/= `cast` <Co:17>)
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
$s$fColorSpaceYe_$ctoComponents_rOz6 = \ ds_am0a -> ds_am0a
-- RHS size: {terms: 1, types: 0, coercions: 14, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$ctoComponents
= $s$fColorSpaceYe_$ctoComponents_rOz6 `cast` <Co:14>
-- RHS size: {terms: 6, types: 5, coercions: 5, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$cgetPxC
= \ ds_am03 ds1_am04 ->
case ds1_am04 of { LumaY -> ds_am03 `cast` <Co:5> }
-- RHS size: {terms: 7, types: 6, coercions: 7, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$csetPxC
= \ _ ds1_alZW y_alZX ->
case ds1_alZW of { LumaY -> y_alZX `cast` <Co:7> }
-- RHS size: {terms: 5, types: 6, coercions: 5, joins: 0/0}
$s$fColorSpaceYe_$cmapPxC_rOz7
= \ f_alZQ ds_alZR -> f_alZQ LumaY (ds_alZR `cast` <Co:5>)
-- RHS size: {terms: 1, types: 0, coercions: 15, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$cmapPxC
= $s$fColorSpaceYe_$cmapPxC_rOz7 `cast` <Co:15>
-- RHS size: {terms: 12, types: 14, coercions: 10, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe_$cfoldlPx2
= \ @ b_alZw f_alZx z_alZy ds_alZz ds1_alZA ->
case z_alZy of z1_alZB { __DEFAULT ->
f_alZx z1_alZB (ds_alZz `cast` <Co:5>) (ds1_alZA `cast` <Co:5>)
}
-- RHS size: {terms: 1, types: 1, coercions: 0, joins: 0/0}
$s$fColorSpaceYe_$ctoListPx = $w$ctoListPx1
-- RHS size: {terms: 13, types: 12, coercions: 5, joins: 0/0}
lvl104_rOz8
= \ @ b_agPt f_agPu z0_agPv xs_agPw ->
case z0_agPv of z1_agPx { __DEFAULT ->
case xs_agPw `cast` <Co:5> of nt_agPy { D# ipv_smwI ->
f_agPu nt_agPy z1_agPx
}
}
-- RHS size: {terms: 23, types: 14, coercions: 30, joins: 0/0}
$s$fArrayRSUcse_$s$fColorSpaceYe
= C:ColorSpace
$fEqY
$fEnumY
$fShowY
$fBoundedY
($fColorSpaceYe3 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fEqPixel0
($fUnboxDouble `cast` <Co:4>)
$fElevatorDouble
$s$fArrayRSUcse_$s$fColorSpaceYe_$ctoComponents
($WPixelY `cast` <Co:8>)
$WPixelY
$s$fArrayRSUcse_$s$fColorSpaceYe_$cgetPxC
$s$fArrayRSUcse_$s$fColorSpaceYe_$csetPxC
$s$fArrayRSUcse_$s$fColorSpaceYe_$cmapPxC
$fColorSpaceYe_$cfmap
$fColorSpaceYe_$cliftA2
$s$fArrayRSUcse_$s$fColorSpaceYe_$cfoldlPx2
lvl104_rOz8
(\ @ b_agPz -> $fColorSpaceYe_$cfoldl')
($fColorSpaceYe2 `cast` <Co:13>)
$s$fColorSpaceYe_$ctoListPx
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl105_rOz9 = D# 0.0##
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl106_rOza = D# 1.0##
-- RHS size: {terms: 4, types: 3, coercions: 21, joins: 0/0}
$s$fArrayRSUcse_$s$fEltPixel
= C:Elt
(lvl_rOx7 `cast` <Co:7>)
(lvl105_rOz9 `cast` <Co:7>)
(lvl106_rOza `cast` <Co:7>)
-- RHS size: {terms: 4, types: 9, coercions: 0, joins: 0/0}
$s$fArrayRSUcse1
= ($s$fArrayRSUcse_$s$fColorSpaceYe, $fEltDouble,
$s$fArrayRSUcse_$s$fEltPixel)
-- RHS size: {terms: 5, types: 3, coercions: 10, joins: 0/0}
$s$fArrayRSUcse_$s$fBaseArrayRSUcse
= C:BaseArray
($fBaseArrayRSUcse1 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fColorSpaceYe
($s$fArrayRSUcse1 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fBaseArrayRSUcse_$cdims
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl107_rOzb
= $fMVectorMVectorPixel_$cbasicLength
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl108_rOzc
= $fMVectorMVectorPixel_$cbasicUnsafeSlice
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl109_rOzd
= $fMVectorMVectorPixel_$cbasicOverlaps
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl110_rOze
= $fMVectorMVectorPixel_$cbasicUnsafeNew
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl111_rOzf
= $fMVectorMVectorPixel_$cbasicInitialize
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl112_rOzg
= $fMVectorMVectorPixel_$cbasicUnsafeReplicate
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl113_rOzh
= $fMVectorMVectorPixel_$cbasicUnsafeRead
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl114_rOzi
= $fMVectorMVectorPixel_$cbasicUnsafeWrite
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl115_rOzj
= $fMVectorMVectorPixel_$cbasicClear
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl116_rOzk
= $fMVectorMVectorPixel_$cbasicSet $s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl117_rOzl
= $fMVectorMVectorPixel_$cbasicUnsafeCopy
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl118_rOzm
= $fMVectorMVectorPixel_$cbasicUnsafeMove
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl119_rOzn
= $fMVectorMVectorPixel_$cbasicUnsafeGrow
$s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 14, types: 4, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fMVectorMVectorPixel
= C:MVector
lvl107_rOzb
lvl108_rOzc
lvl109_rOzd
lvl110_rOze
lvl111_rOzf
lvl112_rOzg
lvl113_rOzh
lvl114_rOzi
lvl115_rOzj
lvl116_rOzk
lvl117_rOzl
lvl118_rOzm
lvl119_rOzn
-- RHS size: {terms: 40, types: 114, coercions: 52, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeFreeze
= \ @ m_akWa $dPrimMonad_akWb eta_B1 ->
case $p1PrimMonad $dPrimMonad_akWb of
{ C:Monad ww1_sDhh ww2_sDhi ww3_sDhj ww4_sDhk ->
ww2_sDhi
((ww2_sDhi
(case eta_B1 `cast` <Co:33> of
{ MVector dt_apqC dt1_apqD dt2_apqE ->
ww2_sDhi
(primitive
$dPrimMonad_akWb
(\ s#_apqH ->
case unsafeFreezeByteArray# dt2_apqE s#_apqH of
{ (# ipv_apqK, ipv1_apqL #) ->
(# ipv_apqK, ByteArray ipv1_apqL #)
}))
(\ x1_apqN ->
ww4_sDhk
(case x1_apqN of { ByteArray dt5_anqd ->
Vector dt_apqC dt1_apqD dt5_anqd
}))
})
(\ x1_apqO -> ww4_sDhk (x1_apqO `cast` <Co:5>)))
`cast` <Co:5>)
(\ x1_akWe -> ww4_sDhk (x1_akWe `cast` <Co:9>))
}
-- RHS size: {terms: 35, types: 128, coercions: 58, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeThaw
= \ @ m_akVS $dPrimMonad_akVT eta_B1 ->
case $p1PrimMonad $dPrimMonad_akVT of
{ C:Monad ww1_sDhC ww2_sDhD ww3_sDhE ww4_sDhF ->
(ww2_sDhD
((ww2_sDhD
(case eta_B1 `cast` <Co:15> of
{ Vector dt_apr2 dt1_apr3 dt2_apr4 ->
ww2_sDhD
(primitive
$dPrimMonad_akVT
(\ s#_apr7 ->
(# s#_apr7, MutableByteArray (dt2_apr4 `cast` <Co:6>) #)))
(\ x1_apr8 ->
ww4_sDhF
(case x1_apr8 of { MutableByteArray dt5_aoHB ->
MVector dt_apr2 dt1_apr3 dt5_aoHB
}))
})
(\ x1_apr9 -> ww4_sDhF (x1_apr9 `cast` <Co:9>)))
`cast` <Co:7>)
(\ x1_akVW -> ww4_sDhF (x1_akVW `cast` <Co:13>)))
`cast` <Co:8>
}
-- RHS size: {terms: 1, types: 0, coercions: 16, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicLength
= $fVectorVectorDouble_$cbasicLength `cast` <Co:16>
-- RHS size: {terms: 1, types: 0, coercions: 33, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeSlice
= $fVectorVectorDouble_$cbasicUnsafeSlice `cast` <Co:33>
-- RHS size: {terms: 27, types: 35, coercions: 30, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeIndexM
= \ @ m_akVm $dMonad_akVn ds_akVo idx_akVp ->
>>=
$dMonad_akVn
(case ds_akVo `cast` <Co:15> of
{ Vector dt_aprD dt1_aprE dt2_aprF ->
case idx_akVp of { I# y_aprJ ->
case indexDoubleArray# dt2_aprF (+# dt_aprD y_aprJ) of wild2_aprL
{ __DEFAULT ->
(return $dMonad_akVn (D# wild2_aprL)) `cast` <Co:4>
}
}
})
(\ x1_akVr -> return $dMonad_akVn (x1_akVr `cast` <Co:11>))
-- RHS size: {terms: 1, types: 0, coercions: 56, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeCopy
= $fVectorVectorDouble_$cbasicUnsafeCopy `cast` <Co:56>
-- RHS size: {terms: 8, types: 12, coercions: 5, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel_$celemseq
= \ @ b_akV3 _ val_akV7 v1_apt6 ->
case val_akV7 `cast` <Co:5> of { D# ipv_apt9 -> v1_apt6 }
-- RHS size: {terms: 9, types: 4, coercions: 6, joins: 0/0}
$s$fArrayRSUcse_$s$fVectorVectorPixel
= C:Vector
($s$fArrayRSUcse_$s$fMVectorMVectorPixel `cast` <Co:6>)
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeFreeze
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeThaw
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicLength
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeSlice
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeIndexM
$s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeCopy
$s$fArrayRSUcse_$s$fVectorVectorPixel_$celemseq
-- RHS size: {terms: 9, types: 4, coercions: 0, joins: 0/0}
lvl120_rOzo
= \ dt1_sHa8 ->
$wcheckError
lvl49_rOy4 248# Bounds lvl51_rOy6 (checkIndex_msg# 0# dt1_sHa8)
-- RHS size: {terms: 31, types: 48, coercions: 39, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cindex00
= \ ds_akNx ->
case ds_akNx `cast` <Co:7> of {
RTImage arr_akNA ->
case arr_akNA `cast` <Co:5> of { AUnboxed ds1_sHa3 vec_sHa4 ->
case vec_sHa4 `cast` <Co:15> of
{ Vector dt_sHa7 dt1_sHa8 dt2_sHa9 ->
case <# 0# dt1_sHa8 of {
__DEFAULT -> lvl120_rOzo dt1_sHa8;
1# ->
case indexDoubleArray# dt2_sHa9 dt_sHa7 of wild3_aprL
{ __DEFAULT ->
(D# wild3_aprL) `cast` <Co:7>
}
}
}
};
RDImage arr_akNI ->
case arr_akNI `cast` <Co:5> of { ADelayed ds1_sHah f4_sHai ->
f4_sHai lvl86_rOyK
}
}
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fUnboxPixel
= C:Unbox
$s$fArrayRSUcse_$s$fVectorVectorPixel
$s$fArrayRSUcse_$s$fMVectorMVectorPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl121_rOzp = $fSourceUa_$cextent $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl122_rOzq = $fSourceUa_$cindex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl123_rOzr
= $fSourceUa_$cunsafeIndex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl124_rOzs
= $fSourceUa_$clinearIndex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl125_rOzt
= $fSourceUa_$cunsafeLinearIndex $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl126_rOzu
= $fSourceUa_$cdeepSeqArray $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 7, types: 4, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fSourceUa
= C:Source
lvl121_rOzp
lvl122_rOzq
lvl123_rOzr
lvl124_rOzs
lvl125_rOzt
lvl126_rOzu
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl127_rOzw = $fTargetUe_$cnewMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl128_rOzx
= $fTargetUe_$cunsafeWriteMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl129_rOzy
= $fTargetUe_$cunsafeFreezeMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl130_rOzz
= $fTargetUe_$cdeepSeqMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl131_rOzA = $fTargetUe_$ctouchMVec $s$fArrayRSUcse_$s$fUnboxPixel
-- RHS size: {terms: 6, types: 4, coercions: 0, joins: 0/0}
$s$fArrayRSUcse_$s$fTargetUe
= C:Target
lvl127_rOzw lvl128_rOzx lvl129_rOzy lvl130_rOzz lvl131_rOzA
-- RHS size: {terms: 8, types: 8, coercions: 0, joins: 0/0}
lvl132_rOzB
= \ ww4_alcW ->
$wcheckError
lvl25_rOxB 591# Bounds lvl27_rOxD (checkLength_msg# ww4_alcW)
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl133_rOzC = "Data.Vector.Primitive.Mutable"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl134_rOzD = unpackCString# lvl133_rOzC
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl135_rOzE = ".\\\\Data\\\\Vector\\\\Primitive\\\\Mutable.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl136_rOzF = unpackCString# lvl135_rOzE
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl137_rOzG = I# 107#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl138_rOzH
= SrcLoc
lvl8_rOxj
lvl134_rOzD
lvl136_rOzF
lvl137_rOzG
lvl14_rOxp
lvl137_rOzG
lvl15_rOxq
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl139_rOzI = PushCallStack lvl6_rOxh lvl138_rOzH EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl140_rOzJ = "Primitive.basicUnsafeNew: length to large: "#
-- RHS size: {terms: 14, types: 18, coercions: 4, joins: 0/0}
lvl141_rOzK
= \ ww4_alcW ->
error
(lvl139_rOzI `cast` <Co:4>)
(unpackAppendCString#
lvl140_rOzJ
(case $wshowSignedInt 0# ww4_alcW [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl142_rOzL = I# 106#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl143_rOzM = I# 78#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl144_rOzN
= SrcLoc
lvl8_rOxj
lvl134_rOzD
lvl136_rOzF
lvl142_rOzL
lvl19_rOxu
lvl142_rOzL
lvl143_rOzM
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl145_rOzO = PushCallStack lvl6_rOxh lvl144_rOzN EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl146_rOzP = "Primitive.basicUnsafeNew: negative length: "#
-- RHS size: {terms: 14, types: 18, coercions: 4, joins: 0/0}
lvl147_rOzQ
= \ ww4_alcW ->
error
(lvl145_rOzO `cast` <Co:4>)
(unpackAppendCString#
lvl146_rOzP
(case $wshowSignedInt 0# ww4_alcW [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 109, types: 190, coercions: 85, joins: 0/1}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctranspose
= \ ds_akDX ->
case ds_akDX `cast` <Co:7> of {
RTImage arr_akE5 ->
case arr_akE5 `cast` <Co:9> of { AUnboxed sh1_sHbw ds1_sHbx ->
case sh1_sHbw of { :. ds2_sHbA n_sHbB ->
case ds2_sHbA of { :. sh2_sHbE m_sHbF ->
case ds1_sHbx `cast` <Co:15> of
{ Vector dt_sHbM dt1_sHbN dt2_sHbO ->
case n_sHbB of wild5_sHbT { I# y_sHbU ->
(RDImage
((ADelayed
(:. (:. sh2_sHbE wild5_sHbT) m_sHbF)
(\ ds3_al8p ->
case ds3_al8p of { :. ds4_al8s j_al8t ->
case ds4_al8s of { :. sh3_sHbI i_sHbJ ->
case j_al8t of { I# y1_sHbR ->
case i_sHbJ of { I# y2_sHbX ->
case indexDoubleArray#
dt2_sHbO (+# dt_sHbM (+# (*# y1_sHbR y_sHbU) y2_sHbX))
of wild10_aprL
{ __DEFAULT ->
(D# wild10_aprL) `cast` <Co:7>
}
}
}
}
}))
`cast` <Co:10>))
`cast` <Co:9>
}
}
}
}
};
RDImage arr_akE8 ->
case arr_akE8 `cast` <Co:9> of { ADelayed sh1_sHc0 ds1_sHc1 ->
case sh1_sHc0 of { :. ds2_sHc4 n_sHc5 ->
case ds2_sHc4 of { :. sh2_sHc8 m_sHc9 ->
case n_sHc5 of wild4_sHci { I# y_sHcj ->
(RDImage
((ADelayed
(:. (:. sh2_sHc8 wild4_sHci) m_sHc9)
(\ ds3_al8p ->
case ds3_al8p of { :. ds4_al8s j_al8t ->
case ds4_al8s of { :. sh3_sHcc i_sHcd ->
case j_al8t of { I# y1_sHcg ->
case i_sHcd of { I# y2_sHcm ->
ds1_sHc1
(let { x_al2u = +# (*# y1_sHcg y_sHcj) y2_sHcm } in
case quotInt# x_al2u y_sHcj of wild9_al2A { __DEFAULT ->
case remInt# x_al2u y_sHcj of wild10_al2P { __DEFAULT ->
:. (:. Z (I# wild9_al2A)) (I# wild10_al2P)
}
})
}
}
}
}))
`cast` <Co:10>))
`cast` <Co:9>
}
}
}
}
}
-- RHS size: {terms: 112, types: 150, coercions: 60, joins: 0/1}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cbackpermute
= \ sz_akCr g_akCs ds_akCt ->
case sz_akCr of { (ipv_akCw, ipv1_akCx) ->
case ds_akCt `cast` <Co:7> of img1_akCz { __DEFAULT ->
case ipv_akCw of wild_aiCr { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_akCx of wild1_XiRU { I# x1_XiRY ->
case <=# x1_XiRY 0# of {
__DEFAULT ->
(RDImage
((ADelayed
(:. (:. Z wild_aiCr) wild1_XiRU)
(let {
ds1_anvz
= case img1_akCz of {
RTImage arr_akDC ->
case arr_akDC `cast` <Co:5> of { AUnboxed sh2_sHcp ds2_sHcq ->
case ds2_sHcq `cast` <Co:15> of
{ Vector dt_sHct dt1_sHcu dt2_sHcv ->
case sh2_sHcp of wild5_sHcx { :. sh1_sHcy sh4_sHcz ->
case sh4_sHcz of { I# y_sHcJ ->
(ADelayed
wild5_sHcx
(\ ix_akDJ ->
case ix_akDJ of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHcC sh2'1_sHcD ->
case sh2'1_sHcD of { I# y1_sHcG ->
case sh2'_al1I of { I# y2_sHcM ->
case indexDoubleArray#
dt2_sHcv (+# dt_sHct (+# (*# y1_sHcG y_sHcJ) y2_sHcM))
of wild11_aprL
{ __DEFAULT ->
(D# wild11_aprL) `cast` <Co:7>
}
}
}
}
}))
`cast` <Co:6>
}
}
}
};
RDImage arr_akDL -> arr_akDL
} } in
\ x2_alaK ->
case ds1_anvz `cast` <Co:5> of { ADelayed ds2_anvD f_anvE ->
f_anvE
(case g_akCs (sh2ix x2_alaK) of { (i_akDx, j_akDy) ->
case i_akDx of dt_XkIT { I# ipv2_soBb ->
case j_akDy of dt1_XkIZ { I# ipv3_soBe ->
:. (:. Z dt_XkIT) dt1_XkIZ
}
}
})
}))
`cast` <Co:6>))
`cast` <Co:9>;
1# -> case $wlvl13_rOyV x_aiCt x1_XiRY of wild2_00 { }
}
};
1# ->
case ipv1_akCx of { I# ww1_sDh2 ->
case $wlvl13_rOyV x_aiCt ww1_sDh2 of wild1_00 { }
}
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl148_rOzR = "accumWithx"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl149_rOzS = unpackCString# lvl148_rOzR
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl150_rOzT = "Impossible happened. Received: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl151_rOzU = " "#
-- RHS size: {terms: 45, types: 51, coercions: 0, joins: 0/3}
lvl152_rOzV
= \ ds7_alVy ds4_alVo ->
errorR
lvl149_rOzS
(unpackAppendCString#
lvl150_rOzT
(case $wshowSignedInt 0# ds4_alVo [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
let {
z_aiD3
= unpackAppendCString#
lvl151_rOzU
(case $wshowSignedInt 0# ds7_alVy [] of
{ (# ww2_XiSH, ww3_XiSJ #) ->
: ww2_XiSH ww3_XiSJ
}) } in
letrec {
$sgo_sKYi = \ sc_sKYg sc1_sKYh -> : sc_sKYg (go1_aiD4 sc1_sKYh);
go1_aiD4
= \ ds_aiD5 ->
case ds_aiD5 of {
[] -> z_aiD3;
: y_aiDa ys_aiDb -> : y_aiDa (go1_aiD4 ys_aiDb)
}; } in
$sgo_sKYi ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
lvl153_rOzW = (overflowError, $fIntegralInt1)
-- RHS size: {terms: 627, types: 447, coercions: 51, joins: 4/11}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfoldIx
= \ f_akhy px0_akhz ds_akhA ->
case px0_akhz `cast` <Co:5> of nt_soJI { D# ipv_soJK ->
join {
$w$j_sDjT ww_sDjn ww1_sDjt ww2_sDjI ww3_sDjO ww4_sDjR
= join {
$w$j1_sDja ww5_sDj7
= join {
$w$j2_sDiZ ww6_sDiS ww7_sDiX
= let {
$wf_sDiz
= \ w_sDiv ->
let {
ix_alW9
= case quotInt# w_sDiv ww7_sDiX of wild3_al2A { __DEFAULT ->
case remInt# w_sDiv ww7_sDiX of wild5_al2P { __DEFAULT ->
let { x_al2u = +# (*# wild3_al2A ww7_sDiX) wild5_al2P } in
case quotInt# x_al2u ww7_sDiX of wild1_Xlgc { __DEFAULT ->
case remInt# x_al2u ww7_sDiX of wild2_Xlgu { __DEFAULT ->
:. (:. Z (I# wild1_Xlgc)) (I# wild2_Xlgu)
}
}
}
} } in
(# case ix_alW9 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHcP sh2'1_sHcQ ->
case sh2'1_sHcQ of { I# y1_sHcT ->
case sh2'_al1I of { I# y2_sHcW ->
let { x_al2u = +# (*# y1_sHcT ww1_sDjt) y2_sHcW } in
case quotInt# x_al2u ww1_sDjt of wild5_al2A { __DEFAULT ->
case remInt# x_al2u ww1_sDjt of wild6_al2P { __DEFAULT ->
I# (+# (*# wild5_al2A ww1_sDjt) wild6_al2P)
}
}
}
}
}
},
ww4_sDjR
(case ix_alW9 of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHcZ sh2'1_sHd0 ->
case sh2'1_sHd0 of { I# y1_sHd3 ->
case sh2'_al1I of { I# y2_sHd6 ->
let { x_al2u = +# (*# y1_sHd3 ww3_sDjO) y2_sHd6 } in
case quotInt# x_al2u ww3_sDjO of wild5_al2A { __DEFAULT ->
case remInt# x_al2u ww3_sDjO of wild6_al2P { __DEFAULT ->
:. (:. Z (I# wild5_al2A)) (I# wild6_al2P)
}
}
}
}
}
}) #) } in
let { end_alUJ = *# ww6_sDiS ww7_sDiX } in
joinrec {
$s$witer_sKXR sc_sKXQ sc1_sKXO sc2_sKXN
= case >=# sc2_sKXN end_alUJ of {
__DEFAULT ->
case sc1_sKXO of ds5_alVq {
__DEFAULT ->
case $wf_sDiz sc2_sKXN of { (# ww9_sDw5, ww10_sDw6 #) ->
case ww9_sDw5 of { I# ds7_alVy ->
case ds7_alVy of ds8_alVA {
__DEFAULT ->
case lvl152_rOzV ds8_alVA ds5_alVq of wild_00 { };
-1# ->
jump $s$witer_sKXR
(f_akhy
ww10_sDw6
(case ww7_sDiX of wild_ajLz {
__DEFAULT ->
case ># ds5_alVq 0# of {
__DEFAULT ->
case <# ds5_alVq 0# of {
__DEFAULT ->
case quotRemInt# ds5_alVq wild_ajLz of
{ (# ipv1_ajLE, ipv2_ajLF #) ->
(I# ipv1_ajLE, I# ipv2_ajLF)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ds5_alVq wild_ajLz
of
{ (# ipv1_ajLK, ipv2_ajLL #) ->
(I# ipv1_ajLK, I# ipv2_ajLL)
};
1# ->
case quotRemInt#
(+# ds5_alVq 1#) wild_ajLz
of
{ (# ipv1_ajLP, ipv2_ajLQ #) ->
(I# (-# ipv1_ajLP 1#),
I#
(-# (+# ipv2_ajLQ wild_ajLz) 1#))
}
}
};
1# ->
case <# wild_ajLz 0# of {
__DEFAULT ->
case <# ds5_alVq 0# of {
__DEFAULT ->
case quotRemInt# ds5_alVq wild_ajLz
of
{ (# ipv1_ajLW, ipv2_ajLX #) ->
(I# ipv1_ajLW, I# ipv2_ajLX)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
ds5_alVq wild_ajLz
of
{ (# ipv1_ajM2, ipv2_ajM3 #) ->
(I# ipv1_ajM2, I# ipv2_ajM3)
};
1# ->
case quotRemInt#
(+# ds5_alVq 1#)
wild_ajLz
of
{ (# ipv1_ajM7, ipv2_ajM8 #) ->
(I# (-# ipv1_ajM7 1#),
I#
(-#
(+# ipv2_ajM8 wild_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# ds5_alVq 1#) wild_ajLz
of
{ (# ipv1_ajMc, ipv2_ajMd #) ->
(I# (-# ipv1_ajMc 1#),
I# (+# (+# ipv2_ajMd wild_ajLz) 1#))
}
}
};
-1# ->
case ds5_alVq of wild1_ajMf {
__DEFAULT ->
case ># wild1_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild1_ajMf -1# of
{ (# ipv1_ajMk, ipv2_ajMl #) ->
(I# ipv1_ajMk, I# ipv2_ajMl)
};
1# ->
case quotRemInt# (-# wild1_ajMf 1#) -1#
of
{ (# ipv1_ajMu, ipv2_ajMv #) ->
(I# (-# ipv1_ajMu 1#), I# ipv2_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild1_00 { }
})
sc_sKXQ)
-1#
(+# sc2_sKXN 1#)
}
}
};
-1# ->
case $wf_sDiz sc2_sKXN of { (# ww9_sDw5, ww10_sDw6 #) ->
jump $s$witer_sKXR
(f_akhy
sc_sKXQ
(case ww9_sDw5 of { I# ipv1_aivF ->
case ww7_sDiX of wild_ajLz {
__DEFAULT ->
case ># ipv1_aivF 0# of {
__DEFAULT ->
case <# ipv1_aivF 0# of {
__DEFAULT ->
case quotRemInt# ipv1_aivF wild_ajLz of
{ (# ipv2_ajLE, ipv3_ajLF #) ->
(I# ipv2_ajLE, I# ipv3_ajLF)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ipv1_aivF wild_ajLz of
{ (# ipv2_ajLK, ipv3_ajLL #) ->
(I# ipv2_ajLK, I# ipv3_ajLL)
};
1# ->
case quotRemInt#
(+# ipv1_aivF 1#) wild_ajLz
of
{ (# ipv2_ajLP, ipv3_ajLQ #) ->
(I# (-# ipv2_ajLP 1#),
I# (-# (+# ipv3_ajLQ wild_ajLz) 1#))
}
}
};
1# ->
case <# wild_ajLz 0# of {
__DEFAULT ->
case <# ipv1_aivF 0# of {
__DEFAULT ->
case quotRemInt# ipv1_aivF wild_ajLz of
{ (# ipv2_ajLW, ipv3_ajLX #) ->
(I# ipv2_ajLW, I# ipv3_ajLX)
};
1# ->
case ># wild_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ipv1_aivF wild_ajLz
of
{ (# ipv2_ajM2, ipv3_ajM3 #) ->
(I# ipv2_ajM2, I# ipv3_ajM3)
};
1# ->
case quotRemInt#
(+# ipv1_aivF 1#) wild_ajLz
of
{ (# ipv2_ajM7, ipv3_ajM8 #) ->
(I# (-# ipv2_ajM7 1#),
I#
(-# (+# ipv3_ajM8 wild_ajLz) 1#))
}
}
};
1# ->
case quotRemInt# (-# ipv1_aivF 1#) wild_ajLz
of
{ (# ipv2_ajMc, ipv3_ajMd #) ->
(I# (-# ipv2_ajMc 1#),
I# (+# (+# ipv3_ajMd wild_ajLz) 1#))
}
}
};
-1# ->
case ipv1_aivF of wild1_ajMf {
__DEFAULT ->
case ># wild1_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild1_ajMf -1# of
{ (# ipv2_ajMk, ipv3_ajMl #) ->
(I# ipv2_ajMk, I# ipv3_ajMl)
};
1# ->
case quotRemInt# (-# wild1_ajMf 1#) -1# of
{ (# ipv2_ajMu, ipv3_ajMv #) ->
(I# (-# ipv2_ajMu 1#), I# ipv3_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild1_00 { }
}
})
ww10_sDw6)
-1#
(+# sc2_sKXN 1#)
}
};
1# -> sc_sKXQ
}; } in
jump $s$witer_sKXR (nt_soJI `cast` <Co:7>) -1# 0# } in
case <=# ww1_sDjt ww3_sDjO of {
__DEFAULT -> jump $w$j2_sDiZ ww5_sDj7 ww3_sDjO;
1# -> jump $w$j2_sDiZ ww5_sDj7 ww1_sDjt
} } in
case <=# ww_sDjn ww2_sDjI of {
__DEFAULT -> jump $w$j1_sDja ww2_sDjI;
1# -> jump $w$j1_sDja ww_sDjn
} } in
case ds_akhA `cast` <Co:7> of {
RTImage arr_akjg ->
case arr_akjg `cast` <Co:5> of { AUnboxed sh2_sHdi ds1_sHdj ->
case ds1_sHdj `cast` <Co:15> of
{ Vector dt_sHdw dt1_sHdx dt2_sHdy ->
case sh2_sHdi of { :. sh1_sHdB sh4_sHdC ->
case sh4_sHdC of { I# y_sHdF ->
case sh1_sHdB of { :. ww1_sHdM ww2_sHdN ->
case ww2_sHdN of { I# ww4_sHdQ ->
let {
ipv1_akjr
= \ w_sDjU ->
case w_sDjU of { :. ww6_sDjX ww7_sDk7 ->
case ww6_sDjX of { :. ww9_sHdm ww10_sHdn ->
case ww10_sHdn of { I# ww12_sHdq ->
case ww7_sDk7 of { I# ww14_sHdt ->
case indexDoubleArray#
dt2_sHdy (+# dt_sHdw (+# (*# ww12_sHdq y_sHdF) ww14_sHdt))
of ww15_sDkf
{ __DEFAULT ->
(D# ww15_sDkf) `cast` <Co:7>
}
}
}
}
} } in
jump $w$j_sDjT ww4_sHdQ y_sHdF ww4_sHdQ y_sHdF ipv1_akjr
}
}
}
}
}
};
RDImage arr_akju ->
case arr_akju `cast` <Co:5> of { ADelayed ipv1_sHdW ipv2_sHdX ->
case ipv1_sHdW of { :. ww1_sHe0 ww2_sHe1 ->
case ww1_sHe0 of { :. ww4_sHe4 ww5_sHe5 ->
case ww5_sHe5 of { I# ww7_sHe8 ->
case ww2_sHe1 of { I# ww9_sHeb ->
jump $w$j_sDjT ww7_sHe8 ww9_sHeb ww7_sHe8 ww9_sHeb ipv2_sHdX
}
}
}
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl154_rOzX
= " image dimensions do not match the length of a vector: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl155_rOzY = " * "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl156_rOzZ = " /= "#
-- RHS size: {terms: 38, types: 41, coercions: 0, joins: 0/0}
$wlvl14_rOA0
= \ ww_sDkm ww1_sDkq ww2_sDkv ->
errorVG
lvl67_rOyp
(unpackAppendCString#
lvl154_rOzX
(case $wshowSignedInt 0# ww_sDkm [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
++_$s++
(unpackAppendCString#
lvl155_rOzY
(case $wshowSignedInt 0# ww1_sDkq [] of
{ (# ww7_XiXy, ww8_XiXA #) ->
++_$s++
(unpackAppendCString#
lvl156_rOzZ
(case $wshowSignedInt 0# ww2_sDkv [] of
{ (# ww10_XiY7, ww11_XiY9 #) ->
: ww10_XiY7 ww11_XiY9
}))
ww7_XiXy
ww8_XiXA
}))
ww5_aiI4
ww6_aiI5
}))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl157_rOA1 = "fromListsRepa"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl158_rOA2 = showLitString (unpackCString# lvl157_rOA1) $fShow[]1
-- RHS size: {terms: 34, types: 31, coercions: 4, joins: 0/0}
lvl159_rOA3
= \ ww2_arEw ww_sDkB ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
ww2_arEw
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case $wshowSignedInt 0# ww_sDkB w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl158_rOA2)
Rec {
-- RHS size: {terms: 10, types: 25, coercions: 0, joins: 0/0}
go_rOA4
= \ ds_aiD5 ->
case ds_aiD5 of {
[] -> [];
: y_aiDa ys_aiDb -> ++ y_aiDa (go_rOA4 ys_aiDb)
}
end Rec }
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl160_rOA5 = "Repa.loadS[Delayed]: end"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl161_rOA6 = unpackCString# lvl160_rOA5
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl162_rOA7 = "Repa.loadS[Delayed]: start"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl163_rOA8 = unpackCString# lvl162_rOA7
-- RHS size: {terms: 327, types: 401, coercions: 189, joins: 5/10}
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfold
= \ f_akjM px0_akjN ds_akjO ->
case px0_akjN `cast` <Co:5> of { D# ipv_soJ3 ->
case ds_akjO `cast` <Co:7> of {
RTImage ipv1_akjS ->
case ipv1_akjS `cast` <Co:5> of { AUnboxed sh1_sHgd vec_sHge ->
case sh1_sHgd of { :. sh2_sHgh n_sHgi ->
case sh2_sHgh of { :. sh3_sHgl n1_sHgm ->
case n1_sHgm of { I# y_sHgp ->
case n_sHgi of { I# y1_sHgs ->
case vec_sHge `cast` <Co:15> of
{ Vector dt_sHgv dt1_sHgw dt2_sHgx ->
let {
f4_alUF
= \ i_alUy ->
case quotInt# i_alUy y1_sHgs of wild7_al2A { __DEFAULT ->
case remInt# i_alUy y1_sHgs of wild8_al2P { __DEFAULT ->
case indexDoubleArray#
dt2_sHgx (+# dt_sHgv (+# (*# wild7_al2A y1_sHgs) wild8_al2P))
of wild9_aprL
{ __DEFAULT ->
(D# wild9_aprL) `cast` <Co:7>
}
}
} } in
let { end_alUJ = *# y_sHgp y1_sHgs } in
joinrec {
$witer_sDl4 w_sDkY ww_sDl2
= case >=# w_sDkY end_alUJ of {
__DEFAULT ->
case (f_akjM ((D# ww_sDl2) `cast` <Co:7>) (f4_alUF w_sDkY))
`cast` <Co:5>
of
{ D# ww2_XDyg ->
jump $witer_sDl4 (+# w_sDkY 1#) ww2_XDyg
};
1# -> (D# ww_sDl2) `cast` <Co:7>
}; } in
jump $witer_sDl4 0# ipv_soJ3
}
}
}
}
}
};
RDImage arr_akjV ->
case arr_akjV `cast` <Co:5> of { ADelayed sh1_sHgA f4_sHgB ->
case sh1_sHgA of wild2_sHgD { :. sh2_sHgE n_sHgF ->
case sh2_sHgE of { :. sh3_sHgI n1_sHgJ ->
case n1_sHgJ of { I# y_sHgM ->
case n_sHgF of { I# y1_sHgP ->
case f4_sHgB of f5_antF { __DEFAULT ->
case runRW#
(\ s_alV2 ->
case noDuplicate# s_alV2 of s'_alV3 { __DEFAULT ->
let { x_aiIO = *# y_sHgM y1_sHgP } in
case >=# x_aiIO 0# of {
__DEFAULT -> case lvl132_rOzB x_aiIO of wild6_00 { };
1# ->
case <# x_aiIO 0# of {
__DEFAULT ->
case sIZEOF_DOUBLE of { I# ww3_apvL ->
join {
$j_spCT ww4_apvN
= case ># x_aiIO ww4_apvN of {
__DEFAULT ->
case newByteArray#
(*# x_aiIO ww3_apvL) (s'_alV3 `cast` <Co:3>)
of
{ (# ipv1_apve, ipv2_apvf #) ->
case {__pkg_ccall primitive-0.7.0.1 forall s.
MutableByteArray# s
-> Int#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}_apwg
ipv2_apvf
0#
(int2Word# (*# x_aiIO ww3_apvL))
0##
(ipv1_apve `cast` <Co:6>)
of
{ (# ds9_apwl #) ->
case charIsRepresentable3
utf8 lvl163_rOA8 (traceEventIO2 `cast` <Co:6>) ds9_apwl
of
{ (# ipv3_aoD0, ipv4_aoD1 #) ->
join {
$w$j_sDl7 w_sDl5
= case charIsRepresentable3
utf8
lvl161_rOA6
(traceEventIO2 `cast` <Co:6>)
w_sDl5
of
{ (# ipv5_alTG, ipv6_alTH #) ->
case unsafeFreezeByteArray#
ipv2_apvf (ipv5_alTG `cast` <Co:3>)
of
{ (# ipv7_apqK, ipv8_apqL #) ->
(# ipv7_apqK `cast` <Co:20>,
(AUnboxed
wild2_sHgD
((Vector 0# x_aiIO ipv8_apqL) `cast` <Co:20>))
`cast` <Co:6> #)
}
} } in
joinrec {
fill_syr8 ix_aoHY eta_B1
= case >=# ix_aoHY x_aiIO of {
__DEFAULT ->
case (f5_antF
(case quotInt# ix_aoHY y1_sHgP of wild7_al2A
{ __DEFAULT ->
case remInt# ix_aoHY y1_sHgP of wild8_al2P
{ __DEFAULT ->
:. (:. Z (I# wild7_al2A)) (I# wild8_al2P)
}
}))
`cast` <Co:5>
of
{ D# x#_apuD ->
case writeDoubleArray#
ipv2_apvf
ix_aoHY
x#_apuD
(eta_B1 `cast` <Co:3>)
of s'#_apuF
{ __DEFAULT ->
jump fill_syr8
(+# ix_aoHY 1#) (s'#_apuF `cast` <Co:2>)
}
};
1# -> jump $w$j_sDl7 eta_B1
}; } in
jump fill_syr8 0# ipv3_aoD0
}
}
};
1# -> case lvl141_rOzK x_aiIO of wild6_00 { }
} } in
case ww3_apvL of wild6_apvR {
__DEFAULT ->
case divInt# 9223372036854775807# wild6_apvR of ww4_apvN
{ __DEFAULT ->
jump $j_spCT ww4_apvN
};
-1# -> jump $j_spCT -9223372036854775807#;
0# -> case divZeroError of wild7_00 { }
}
};
1# -> case lvl147_rOzQ x_aiIO of wild6_00 { }
}
}
})
of
{ (# ipv1_alV6, ipv2_alV7 #) ->
case ipv2_alV7 `cast` <Co:5> of { AUnboxed sh4_al9v vec_al9w ->
case sh4_al9v of { :. sh5_sHhx n2_sHhy ->
case sh5_sHhx of { :. sh6_sHhB n3_sHhC ->
case n3_sHhC of { I# y2_sHhF ->
case n2_sHhy of { I# y3_sHhI ->
case vec_al9w `cast` <Co:15> of
{ Vector dt_sHhL dt1_sHhM dt2_sHhN ->
let {
f6_alUF
= \ i_alUy ->
case quotInt# i_alUy y3_sHhI of wild12_al2A { __DEFAULT ->
case remInt# i_alUy y3_sHhI of wild13_al2P { __DEFAULT ->
case indexDoubleArray#
dt2_sHhN (+# dt_sHhL (+# (*# wild12_al2A y3_sHhI) wild13_al2P))
of wild14_aprL
{ __DEFAULT ->
(D# wild14_aprL) `cast` <Co:7>
}
}
} } in
let { end_alUJ = *# y2_sHhF y3_sHhI } in
joinrec {
$witer_sDlh w_sDlb ww_sDlf
= case >=# w_sDlb end_alUJ of {
__DEFAULT ->
case (f_akjM ((D# ww_sDlf) `cast` <Co:7>) (f6_alUF w_sDlb))
`cast` <Co:5>
of
{ D# ww2_XDyI ->
jump $witer_sDlh (+# w_sDlb 1#) ww2_XDyI
};
1# -> (D# ww_sDlf) `cast` <Co:7>
}; } in
jump $witer_sDlh 0# ipv_soJ3
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
-- RHS size: {terms: 182, types: 297, coercions: 121, joins: 3/4}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ccompute
= \ ds_akg9 ->
case ds_akg9 `cast` <Co:7> of wild1_akga {
RTImage ipv_akgc -> wild1_akga `cast` <Co:9>;
RDImage arr_akgf ->
case arr_akgf `cast` <Co:5> of { ADelayed sh1_sHhQ f_sHhR ->
case sh1_sHhQ of wild2_sHhT { :. sh2_sHhU n_sHhV ->
case sh2_sHhU of { :. sh3_sHhY n1_sHhZ ->
case n1_sHhZ of { I# y_sHi2 ->
case n_sHhV of { I# y1_sHi5 ->
case f_sHhR of f4_antF { __DEFAULT ->
case runRW#
(\ s_alV2 ->
case noDuplicate# s_alV2 of s'_alV3 { __DEFAULT ->
let { x_aiIO = *# y_sHi2 y1_sHi5 } in
case >=# x_aiIO 0# of {
__DEFAULT -> case lvl132_rOzB x_aiIO of wild6_00 { };
1# ->
case <# x_aiIO 0# of {
__DEFAULT ->
case sIZEOF_DOUBLE of { I# ww3_apvL ->
join {
$j_spDu ww4_apvN
= case ># x_aiIO ww4_apvN of {
__DEFAULT ->
case newByteArray#
(*# x_aiIO ww3_apvL) (s'_alV3 `cast` <Co:3>)
of
{ (# ipv_apve, ipv1_apvf #) ->
case {__pkg_ccall primitive-0.7.0.1 forall s.
MutableByteArray# s
-> Int#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}_apwg
ipv1_apvf
0#
(int2Word# (*# x_aiIO ww3_apvL))
0##
(ipv_apve `cast` <Co:6>)
of
{ (# ds9_apwl #) ->
case charIsRepresentable3
utf8 lvl163_rOA8 (traceEventIO2 `cast` <Co:6>) ds9_apwl
of
{ (# ipv2_aoD0, ipv3_aoD1 #) ->
join {
$w$j_sDlk w_sDli
= case charIsRepresentable3
utf8
lvl161_rOA6
(traceEventIO2 `cast` <Co:6>)
w_sDli
of
{ (# ipv4_alTG, ipv5_alTH #) ->
case unsafeFreezeByteArray#
ipv1_apvf (ipv4_alTG `cast` <Co:3>)
of
{ (# ipv6_apqK, ipv7_apqL #) ->
(# ipv6_apqK `cast` <Co:20>,
(AUnboxed
wild2_sHhT
((Vector 0# x_aiIO ipv7_apqL) `cast` <Co:20>))
`cast` <Co:6> #)
}
} } in
joinrec {
fill_syrR ix_aoHY eta_B1
= case >=# ix_aoHY x_aiIO of {
__DEFAULT ->
case (f4_antF
(case quotInt# ix_aoHY y1_sHi5 of wild7_al2A
{ __DEFAULT ->
case remInt# ix_aoHY y1_sHi5 of wild8_al2P
{ __DEFAULT ->
:. (:. Z (I# wild7_al2A)) (I# wild8_al2P)
}
}))
`cast` <Co:5>
of
{ D# x#_apuD ->
case writeDoubleArray#
ipv1_apvf
ix_aoHY
x#_apuD
(eta_B1 `cast` <Co:3>)
of s'#_apuF
{ __DEFAULT ->
jump fill_syrR
(+# ix_aoHY 1#) (s'#_apuF `cast` <Co:2>)
}
};
1# -> jump $w$j_sDlk eta_B1
}; } in
jump fill_syrR 0# ipv2_aoD0
}
}
};
1# -> case lvl141_rOzK x_aiIO of wild6_00 { }
} } in
case ww3_apvL of wild6_apvR {
__DEFAULT ->
case divInt# 9223372036854775807# wild6_apvR of ww4_apvN
{ __DEFAULT ->
jump $j_spDu ww4_apvN
};
-1# -> jump $j_spDu -9223372036854775807#;
0# -> case divZeroError of wild7_00 { }
}
};
1# -> case lvl147_rOzQ x_aiIO of wild6_00 { }
}
}
})
of
{ (# ipv_alV6, ipv1_alV7 #) ->
case ipv1_alV7 `cast` <Co:5> of nt_soM6
{ AUnboxed ipv2_soM8 ipv3_soM9 ->
(RTImage (nt_soM6 `cast` <Co:6>)) `cast` <Co:9>
}
}
}
}
}
}
}
}
}
-- RHS size: {terms: 256, types: 392, coercions: 195, joins: 5/6}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctoManifest
= \ ds_akee ->
join {
$j_slX1 ipv_aken ipv1_akeo
= join {
$w$j1_sDlv ww_sDlr ww1_sDls ww2_sDlt
= case ipv_aken of { I# x1_akez ->
case ipv1_akeo of { I# y_akeD ->
case ==# (*# x1_akez y_akeD) ww1_sDls of {
__DEFAULT -> ($wlvl14_rOA0 x1_akez y_akeD ww1_sDls) `cast` <Co:13>;
1# ->
(VGImage
x1_akez y_akeD ((Vector ww_sDlr ww1_sDls ww2_sDlt) `cast` <Co:20>))
`cast` <Co:13>
}
}
} } in
case ds_akee `cast` <Co:7> of {
RTImage ipv2_akf2 ->
case ipv2_akf2 `cast` <Co:5> of { AUnboxed ds1_sHiN vec_sHiO ->
case vec_sHiO `cast` <Co:15> of
{ Vector ww1_sHiR ww2_sHiS ww3_sHiT ->
jump $w$j1_sDlv ww1_sHiR ww2_sHiS ww3_sHiT
}
};
RDImage arr_akfa ->
case arr_akfa `cast` <Co:5> of { ADelayed sh1_sHiW f_sHiX ->
case sh1_sHiW of wild2_sHiZ { :. sh2_sHj0 n_sHj1 ->
case sh2_sHj0 of { :. sh3_sHj4 n1_sHj5 ->
case n1_sHj5 of { I# y_sHj8 ->
case n_sHj1 of { I# y1_sHjb ->
case f_sHiX of f4_antF { __DEFAULT ->
case runRW#
(\ s_alV2 ->
case noDuplicate# s_alV2 of s'_alV3 { __DEFAULT ->
let { x_aiIO = *# y_sHj8 y1_sHjb } in
case >=# x_aiIO 0# of {
__DEFAULT -> case lvl132_rOzB x_aiIO of wild6_00 { };
1# ->
case <# x_aiIO 0# of {
__DEFAULT ->
case sIZEOF_DOUBLE of { I# ww3_apvL ->
join {
$j1_spEC ww4_apvN
= case ># x_aiIO ww4_apvN of {
__DEFAULT ->
case newByteArray#
(*# x_aiIO ww3_apvL) (s'_alV3 `cast` <Co:3>)
of
{ (# ipv2_apve, ipv3_apvf #) ->
case {__pkg_ccall primitive-0.7.0.1 forall s.
MutableByteArray# s
-> Int#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}_apwg
ipv3_apvf
0#
(int2Word# (*# x_aiIO ww3_apvL))
0##
(ipv2_apve `cast` <Co:6>)
of
{ (# ds9_apwl #) ->
case charIsRepresentable3
utf8
lvl163_rOA8
(traceEventIO2 `cast` <Co:6>)
ds9_apwl
of
{ (# ipv4_aoD0, ipv5_aoD1 #) ->
join {
$w$j_sDly w_sDlw
= case charIsRepresentable3
utf8
lvl161_rOA6
(traceEventIO2 `cast` <Co:6>)
w_sDlw
of
{ (# ipv6_alTG, ipv7_alTH #) ->
case unsafeFreezeByteArray#
ipv3_apvf (ipv6_alTG `cast` <Co:3>)
of
{ (# ipv8_apqK, ipv9_apqL #) ->
(# ipv8_apqK `cast` <Co:20>,
(AUnboxed
wild2_sHiZ
((Vector 0# x_aiIO ipv9_apqL)
`cast` <Co:20>))
`cast` <Co:6> #)
}
} } in
joinrec {
fill_sysQ ix_aoHY eta_B1
= case >=# ix_aoHY x_aiIO of {
__DEFAULT ->
case (f4_antF
(case quotInt# ix_aoHY y1_sHjb
of wild7_al2A
{ __DEFAULT ->
case remInt# ix_aoHY y1_sHjb
of wild8_al2P
{ __DEFAULT ->
:.
(:. Z (I# wild7_al2A))
(I# wild8_al2P)
}
}))
`cast` <Co:5>
of
{ D# x#_apuD ->
case writeDoubleArray#
ipv3_apvf
ix_aoHY
x#_apuD
(eta_B1 `cast` <Co:3>)
of s'#_apuF
{ __DEFAULT ->
jump fill_sysQ
(+# ix_aoHY 1#) (s'#_apuF `cast` <Co:2>)
}
};
1# -> jump $w$j_sDly eta_B1
}; } in
jump fill_sysQ 0# ipv4_aoD0
}
}
};
1# -> case lvl141_rOzK x_aiIO of wild6_00 { }
} } in
case ww3_apvL of wild6_apvR {
__DEFAULT ->
case divInt# 9223372036854775807# wild6_apvR of ww4_apvN
{ __DEFAULT ->
jump $j1_spEC ww4_apvN
};
-1# -> jump $j1_spEC -9223372036854775807#;
0# -> case divZeroError of wild7_00 { }
}
};
1# -> case lvl147_rOzQ x_aiIO of wild6_00 { }
}
}
})
of
{ (# ipv2_alV6, ipv3_alV7 #) ->
case ipv3_alV7 `cast` <Co:5> of { AUnboxed ds2_akfe vec_akff ->
case vec_akff `cast` <Co:15> of
{ Vector ww1_sHjT ww2_sHjU ww3_sHjV ->
jump $w$j1_sDlv ww1_sHjT ww2_sHjU ww3_sHjV
}
}
}
}
}
}
}
}
}
} } in
case ds_akee `cast` <Co:7> of {
RTImage arr_akfj ->
case arr_akfj `cast` <Co:5> of { AUnboxed sh2_sHjY ds1_sHjZ ->
case sh2_sHjY of { :. ds2_sHk2 j_sHk3 ->
case ds2_sHk2 of { :. ds3_sHk6 i_sHk7 ->
jump $j_slX1 i_sHk7 j_sHk3
}
}
};
RDImage arr_akfD ->
case arr_akfD `cast` <Co:5> of { ADelayed sh2_sHka ds1_sHkb ->
case sh2_sHka of { :. ds2_sHke j_sHkf ->
case ds2_sHke of { :. ds3_sHki i_sHkj ->
jump $j_slX1 i_sHkj j_sHkf
}
}
}
}
-- RHS size: {terms: 196, types: 325, coercions: 132, joins: 3/4}
$w$s$fArrayRSUcse_$ctoVector_rOA9
= \ w_sDlK ->
case w_sDlK `cast` <Co:7> of {
RTImage ipv_akcM ->
case ipv_akcM `cast` <Co:5> of { AUnboxed ds1_sHkm vec_sHkn ->
case vec_sHkn `cast` <Co:15> of
{ Vector ww1_sHkq ww2_sHkr ww3_sHks ->
(# ww1_sHkq, ww2_sHkr, ww3_sHks #)
}
};
RDImage arr_ake2 ->
case arr_ake2 `cast` <Co:5> of { ADelayed sh1_sHkv f_sHkw ->
case sh1_sHkv of wild2_sHky { :. sh2_sHkz n_sHkA ->
case sh2_sHkz of { :. sh3_sHkD n1_sHkE ->
case n1_sHkE of { I# y_sHkH ->
case n_sHkA of { I# y1_sHkK ->
case f_sHkw of f4_antF { __DEFAULT ->
case runRW#
(\ s_alV2 ->
case noDuplicate# s_alV2 of s'_alV3 { __DEFAULT ->
let { x_aiIO = *# y_sHkH y1_sHkK } in
case >=# x_aiIO 0# of {
__DEFAULT -> case lvl132_rOzB x_aiIO of wild6_00 { };
1# ->
case <# x_aiIO 0# of {
__DEFAULT ->
case sIZEOF_DOUBLE of { I# ww3_apvL ->
join {
$j_spFw ww4_apvN
= case ># x_aiIO ww4_apvN of {
__DEFAULT ->
case newByteArray#
(*# x_aiIO ww3_apvL) (s'_alV3 `cast` <Co:3>)
of
{ (# ipv_apve, ipv1_apvf #) ->
case {__pkg_ccall primitive-0.7.0.1 forall s.
MutableByteArray# s
-> Int#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}_apwg
ipv1_apvf
0#
(int2Word# (*# x_aiIO ww3_apvL))
0##
(ipv_apve `cast` <Co:6>)
of
{ (# ds9_apwl #) ->
case charIsRepresentable3
utf8 lvl163_rOA8 (traceEventIO2 `cast` <Co:6>) ds9_apwl
of
{ (# ipv2_aoD0, ipv3_aoD1 #) ->
join {
$w$j_sDlG w1_sDlE
= case charIsRepresentable3
utf8
lvl161_rOA6
(traceEventIO2 `cast` <Co:6>)
w1_sDlE
of
{ (# ipv4_alTG, ipv5_alTH #) ->
case unsafeFreezeByteArray#
ipv1_apvf (ipv4_alTG `cast` <Co:3>)
of
{ (# ipv6_apqK, ipv7_apqL #) ->
(# ipv6_apqK `cast` <Co:20>,
(AUnboxed
wild2_sHky
((Vector 0# x_aiIO ipv7_apqL) `cast` <Co:20>))
`cast` <Co:6> #)
}
} } in
joinrec {
fill_sytF ix_aoHY eta_B1
= case >=# ix_aoHY x_aiIO of {
__DEFAULT ->
case (f4_antF
(case quotInt# ix_aoHY y1_sHkK of wild7_al2A
{ __DEFAULT ->
case remInt# ix_aoHY y1_sHkK of wild8_al2P
{ __DEFAULT ->
:. (:. Z (I# wild7_al2A)) (I# wild8_al2P)
}
}))
`cast` <Co:5>
of
{ D# x#_apuD ->
case writeDoubleArray#
ipv1_apvf
ix_aoHY
x#_apuD
(eta_B1 `cast` <Co:3>)
of s'#_apuF
{ __DEFAULT ->
jump fill_sytF
(+# ix_aoHY 1#) (s'#_apuF `cast` <Co:2>)
}
};
1# -> jump $w$j_sDlG eta_B1
}; } in
jump fill_sytF 0# ipv2_aoD0
}
}
};
1# -> case lvl141_rOzK x_aiIO of wild6_00 { }
} } in
case ww3_apvL of wild6_apvR {
__DEFAULT ->
case divInt# 9223372036854775807# wild6_apvR of ww4_apvN
{ __DEFAULT ->
jump $j_spFw ww4_apvN
};
-1# -> jump $j_spFw -9223372036854775807#;
0# -> case divZeroError of wild7_00 { }
}
};
1# -> case lvl147_rOzQ x_aiIO of wild6_00 { }
}
}
})
of
{ (# ipv_alV6, ipv1_alV7 #) ->
case ipv1_alV7 `cast` <Co:5> of { AUnboxed ds1_ake6 vec_ake7 ->
case vec_ake7 `cast` <Co:15> of
{ Vector ww1_sHls ww2_sHlt ww3_sHlu ->
(# ww1_sHls, ww2_sHlt, ww3_sHlu #)
}
}
}
}
}
}
}
}
}
}
-- RHS size: {terms: 9, types: 15, coercions: 20, joins: 0/0}
$s$fArrayRSUcse_$ctoVector_rOAa
= \ w_sDlK ->
case $w$s$fArrayRSUcse_$ctoVector_rOA9 w_sDlK of
{ (# ww1_sDw8, ww2_sDw9, ww3_sDwa #) ->
(Vector ww1_sDw8 ww2_sDw9 ww3_sDwa) `cast` <Co:20>
}
-- RHS size: {terms: 1, types: 0, coercions: 15, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctoVector
= $s$fArrayRSUcse_$ctoVector_rOAa `cast` <Co:15>
-- RHS size: {terms: 242, types: 438, coercions: 175, joins: 7/10}
lvl164_rOAb
= \ x_akkx ->
case $wlenAcc x_akkx 0# of ww2_arEw { __DEFAULT ->
join {
$j_sDWo ww_sDlR
= case <=# ww2_arEw 0# of {
__DEFAULT ->
case <=# ww_sDlR 0# of {
__DEFAULT ->
join {
$j1_sB1Y
= let { w1_alcT = go_rOA4 x_akkx } in
let { n_akoC = I# ww_sDlR } in
let { wild_aiCr = I# ww2_arEw } in
case runRW#
(\ s_alcU ->
case noDuplicate# s_alcU of s'_alcV { __DEFAULT ->
case $wlenAcc w1_alcT 0# of ww4_alcW { __DEFAULT ->
case /=# ww4_alcW (*# ww2_arEw ww_sDlR) of {
__DEFAULT ->
case >=# ww4_alcW 0# of {
__DEFAULT -> case lvl132_rOzB ww4_alcW of wild1_00 { };
1# ->
case <# ww4_alcW 0# of {
__DEFAULT ->
case sIZEOF_DOUBLE of { I# ww3_apvL ->
join {
$j2_spGy ww5_apvN
= case ># ww4_alcW ww5_apvN of {
__DEFAULT ->
case newByteArray#
(*# ww4_alcW ww3_apvL)
(s'_alcV `cast` <Co:3>)
of
{ (# ipv_apve, ipv1_apvf #) ->
case {__pkg_ccall primitive-0.7.0.1 forall s.
MutableByteArray# s
-> Int#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}_apwg
ipv1_apvf
0#
(int2Word# (*# ww4_alcW ww3_apvL))
0##
(ipv_apve `cast` <Co:6>)
of
{ (# ds9_apwl #) ->
join {
exit_X7n s'#_apuF
= case unsafeFreezeByteArray#
ipv1_apvf s'#_apuF
of
{ (# ipv2_apqK, ipv3_apqL #) ->
(# ipv2_apqK `cast` <Co:20>,
(AUnboxed
(:. (:. Z wild_aiCr) n_akoC)
((Vector
0# ww4_alcW ipv3_apqL)
`cast` <Co:32>))
`cast` <Co:10> #)
} } in
join {
exit1_ald8 eta_ald9
= case unsafeFreezeByteArray#
ipv1_apvf
(eta_ald9 `cast` <Co:3>)
of
{ (# ipv2_apqK, ipv3_apqL #) ->
(# ipv2_apqK `cast` <Co:20>,
(AUnboxed
(:. (:. Z wild_aiCr) n_akoC)
((Vector
0# ww4_alcW ipv3_apqL)
`cast` <Co:32>))
`cast` <Co:10> #)
} } in
joinrec {
go1_aldc x1_aldd eta_alde eta1_aldf
= case eta_alde of {
[] -> jump exit1_ald8 eta1_aldf;
: y1_aldk ys_aldl ->
case y1_aldk `cast` <Co:5> of
{ D# x#_apuD ->
case writeDoubleArray#
ipv1_apvf
x1_aldd
x#_apuD
(eta1_aldf `cast` <Co:3>)
of s'#_apuF
{ __DEFAULT ->
case x1_aldd of wild5_alds {
__DEFAULT ->
jump go1_aldc
(+# wild5_alds 1#)
ys_aldl
(s'#_apuF `cast` <Co:2>);
9223372036854775807# ->
jump exit_X7n s'#_apuF
}
}
}
}; } in
jump go1_aldc 0# w1_alcT ds9_apwl
}
};
1# ->
case lvl141_rOzK ww4_alcW of wild1_00 { }
} } in
case ww3_apvL of wild1_apvR {
__DEFAULT ->
case divInt# 9223372036854775807# wild1_apvR
of ww5_apvN
{ __DEFAULT ->
jump $j2_spGy ww5_apvN
};
-1# -> jump $j2_spGy -9223372036854775807#;
0# -> case divZeroError of wild2_00 { }
}
};
1# -> case lvl147_rOzQ ww4_alcW of wild1_00 { }
}
};
1# -> case fromList1 of wild1_00 { }
}
}
})
of
{ (# ipv_aldy, ipv1_aldz #) ->
case ipv1_aldz `cast` <Co:5> of nt_soQt
{ AUnboxed ipv2_soQv ipv3_soQw ->
(RTImage (nt_soQt `cast` <Co:6>)) `cast` <Co:9>
}
} } in
joinrec {
go1_aiD4 ds_aiD5
= case ds_aiD5 of {
[] -> jump $j1_sB1Y;
: y_aiDa ys_aiDb ->
case $wlenAcc y_aiDa 0# of ww1_albq { __DEFAULT ->
case ==# ww1_albq ww_sDlR of {
__DEFAULT -> lvl103_rOz5 `cast` <Co:9>;
1# -> jump go1_aiD4 ys_aiDb
}
}
}; } in
jump go1_aiD4 x_akkx;
1# -> case lvl159_rOA3 ww2_arEw ww_sDlR of wild_00 { }
};
1# -> case lvl159_rOA3 ww2_arEw ww_sDlR of wild_00 { }
} } in
case x_akkx of {
[] -> jump $j_sDWo 0#;
: y_aiDa ys_aiDb ->
case $wlenAcc y_aiDa 0# of ww1_XrQt { __DEFAULT ->
jump $j_sDWo ww1_XrQt
}
}
}
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl165_rOAc = $fNumPixel_$cnegate $s$fArrayRSUcse_$s$fColorSpaceYe
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl166_rOAd = $fColorSpaceYe_$cfmap fabsDouble
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl167_rOAe = $fColorSpaceYe_$cfmap $fNumDouble_$csignum
-- RHS size: {terms: 8, types: 3, coercions: 78, joins: 0/0}
$s$fArrayRSUcse_$s$fNumPixel
= C:Num
(plusDouble `cast` <Co:23>)
(minusDouble `cast` <Co:23>)
(timesDouble `cast` <Co:23>)
lvl165_rOAc
lvl166_rOAd
lvl167_rOAe
($fNumDouble_$cfromInteger `cast` <Co:9>)
-- RHS size: {terms: 13, types: 14, coercions: 14, joins: 0/0}
$s$fArrayRSUcse_$c|*|_rOAf
= \ ds_akkc ds1_akkd ->
$wmultR
$s$fArrayRSUcse_$s$fNumPixel
$s$fArrayRSUcse_$s$fSourceUa
$s$fArrayRSUcse_$s$fSourceUa
$s$fArrayRSUcse_$s$fSourceUa
$s$fArrayRSUcse_$s$fTargetUe
$s$fArrayRSUcse_$s$fTargetUe
$s$fArrayRSUcse_$s$fTargetUe
Sequential
(ds_akkc `cast` <Co:7>)
(ds1_akkd `cast` <Co:7>)
-- RHS size: {terms: 1, types: 0, coercions: 19, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$c|*|
= $s$fArrayRSUcse_$c|*|_rOAf `cast` <Co:19>
-- RHS size: {terms: 103, types: 164, coercions: 80, joins: 0/0}
$s$fArrayRSUcse_$s$fArrayRSUcse_$ceq
= \ ds_akgm ds1_akgn ->
case ds_akgm `cast` <Co:7> of img4_akgo { __DEFAULT ->
case ds1_akgn `cast` <Co:7> of img5_akgp { __DEFAULT ->
equalsS
$s$fLoadDshe_$s$fShape:.
$fSourceDa
$fSourceDa
$s$fArrayRSUcse_$s$fEqPixel0
(case img4_akgo of {
RTImage arr_akh3 ->
case arr_akh3 `cast` <Co:5> of { AUnboxed sh2_sHmw ds2_sHmx ->
case ds2_sHmx `cast` <Co:15> of
{ Vector dt_sHmA dt1_sHmB dt2_sHmC ->
case sh2_sHmw of wild3_sHmE { :. sh1_sHmF sh4_sHmG ->
case sh4_sHmG of { I# y_sHmQ ->
(ADelayed
wild3_sHmE
(\ ix_akha ->
case ix_akha of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHmJ sh2'1_sHmK ->
case sh2'1_sHmK of { I# y1_sHmN ->
case sh2'_al1I of { I# y2_sHmT ->
case indexDoubleArray#
dt2_sHmC (+# dt_sHmA (+# (*# y1_sHmN y_sHmQ) y2_sHmT))
of wild9_aprL
{ __DEFAULT ->
(D# wild9_aprL) `cast` <Co:7>
}
}
}
}
}))
`cast` <Co:6>
}
}
}
};
RDImage arr_akhf -> arr_akhf
})
(case img5_akgp of {
RTImage arr_akhj ->
case arr_akhj `cast` <Co:5> of { AUnboxed sh2_sHmW ds2_sHmX ->
case ds2_sHmX `cast` <Co:15> of
{ Vector dt_sHn0 dt1_sHn1 dt2_sHn2 ->
case sh2_sHmW of wild3_sHn4 { :. sh1_sHn5 sh4_sHn6 ->
case sh4_sHn6 of { I# y_sHng ->
(ADelayed
wild3_sHn4
(\ ix_akhq ->
case ix_akhq of { :. sh1'_al1H sh2'_al1I ->
case sh1'_al1H of { :. sh1'1_sHn9 sh2'1_sHna ->
case sh2'1_sHna of { I# y1_sHnd ->
case sh2'_al1I of { I# y2_sHnj ->
case indexDoubleArray#
dt2_sHn2 (+# dt_sHn0 (+# (*# y1_sHnd y_sHng) y2_sHnj))
of wild9_aprL
{ __DEFAULT ->
(D# wild9_aprL) `cast` <Co:7>
}
}
}
}
}))
`cast` <Co:6>
}
}
}
};
RDImage arr_akhs -> arr_akhs
})
}
}
-- RHS size: {terms: 3, types: 7, coercions: 4, joins: 0/0}
lvl168_rOAg
= ($s$fArrayRSUcse_$s$fColorSpaceYe, $fUnboxDouble `cast` <Co:4>)
-- RHS size: {terms: 2, types: 2, coercions: 5, joins: 0/0}
lvl169_rOAh = $fBaseArrayVUcse (lvl168_rOAg `cast` <Co:5>)
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl170_rOAi = $fMArrayVUcse lvl169_rOAh
-- RHS size: {terms: 25, types: 3, coercions: 27, joins: 0/0}
$s$fArrayRSUcse
= C:Array
($s$fArrayRSUcse_$s$fVectorVectorPixel `cast` <Co:9>)
(lvl170_rOAi `cast` <Co:5>)
$s$fArrayRSUcse_$s$fBaseArrayRSUcse
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImage
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImageWindowed
(lvl1_rOxb `cast` <Co:13>)
$s$fArrayRSUcse_$s$fArrayRSUcse_$cindex00
$s$fArrayRSUcse_$s$fArrayRSUcse_$cmap
$s$fArrayRSUcse_$s$fArrayRSUcse_$cimap
$s$fArrayRSUcse_$s$fArrayRSUcse_$czipWith
$s$fArrayRSUcse_$s$fArrayRSUcse_$cizipWith
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse2
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctranspose
$s$fArrayRSUcse_$s$fArrayRSUcse_$cbackpermute
lvl164_rOAb
$s$fArrayRSUcse_$s$fArrayRSUcse_$c|*|
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfold
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfoldIx
$s$fArrayRSUcse_$s$fArrayRSUcse_$ceq
$s$fArrayRSUcse_$s$fArrayRSUcse_$ccompute
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctoManifest
$s$fArrayRSUcse_$s$fArrayRSUcse_$ctoVector
$s$fArrayRSUcse_$s$fArrayRSUcse_$cfromVector
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
$s$fArrayVScse_$s$fStorablePixel_$csizeOf
= \ _ -> $fStorableDouble5
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
$s$fArrayVScse_$s$fStorablePixel_$calignment
= \ _ -> $fStorableDouble5
-- RHS size: {terms: 23, types: 35, coercions: 7, joins: 0/0}
$s$fStorablePixel3
= \ w1_am2g w2_am2h w3_am2i ->
case w1_am2g of { Ptr ww10_am2w ->
case w2_am2h of { I# ww12_am2C ->
case readDoubleOffAddr#
(plusAddr# ww10_am2w (*# ww12_am2C 8#)) 0# w3_am2i
of
{ (# ipv_amvL, ipv1_amvM #) ->
(# ipv_amvL, (D# ipv1_amvM) `cast` <Co:7> #)
}
}
}
-- RHS size: {terms: 27, types: 29, coercions: 5, joins: 0/0}
$s$fStorablePixel_$cpokeElemOff1_rOAj
= \ w1_am1O w2_am1P w3_am1Q eta_B1 ->
case w1_am1O of { Ptr ww10_am26 ->
case w2_am1P of { I# ww12_am2c ->
case w3_am1Q `cast` <Co:5> of { D# x_amvw ->
case writeDoubleOffAddr#
(plusAddr# ww10_am26 (*# ww12_am2c 8#)) 0# x_amvw eta_B1
of s2_amvy
{ __DEFAULT ->
(# s2_amvy, () #)
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 14, joins: 0/0}
$s$fStorablePixel_$cpokeElemOff
= $s$fStorablePixel_$cpokeElemOff1_rOAj `cast` <Co:14>
-- RHS size: {terms: 22, types: 33, coercions: 7, joins: 0/0}
$s$fStorablePixel1
= \ @ b_am1v ptr_am1w off_am1x eta_am1y ->
case ptr_am1w of { Ptr addr_am1B ->
case off_am1x of { I# d_am1F ->
case readDoubleOffAddr# (plusAddr# addr_am1B d_am1F) 0# eta_am1y of
{ (# ipv_amvL, ipv1_amvM #) ->
(# ipv_amvL, (D# ipv1_amvM) `cast` <Co:7> #)
}
}
}
-- RHS size: {terms: 26, types: 27, coercions: 5, joins: 0/0}
$s$fStorablePixel_$cpokeByteOff1_rOAk
= \ @ b_am1h ptr_am1i off_am1j eta_am1k eta1_B1 ->
case ptr_am1i of { Ptr addr_am1n ->
case off_am1j of { I# d_am1r ->
case eta_am1k `cast` <Co:5> of { D# x_amvw ->
case writeDoubleOffAddr#
(plusAddr# addr_am1n d_am1r) 0# x_amvw eta1_B1
of s2_amvy
{ __DEFAULT ->
(# s2_amvy, () #)
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 15, joins: 0/0}
$s$fStorablePixel_$cpokeByteOff
= $s$fStorablePixel_$cpokeByteOff1_rOAk `cast` <Co:15>
-- RHS size: {terms: 15, types: 32, coercions: 7, joins: 0/0}
$s$fStorablePixel_$cpeek_rOAl
= \ p_am14 eta_B1 ->
case p_am14 of { Ptr ipv_am18 ->
case readDoubleOffAddr# ipv_am18 0# eta_B1 of
{ (# ipv1_amvL, ipv2_amvM #) ->
(# ipv1_amvL, (D# ipv2_amvM) `cast` <Co:7> #)
}
}
-- RHS size: {terms: 1, types: 0, coercions: 10, joins: 0/0}
$s$fArrayVScse_$s$fStorablePixel_$cpeek
= $s$fStorablePixel_$cpeek_rOAl `cast` <Co:10>
-- RHS size: {terms: 19, types: 26, coercions: 5, joins: 0/0}
$s$fStorablePixel_$cpoke_rOAm
= \ p_am0W ds_am0X eta_B1 ->
case p_am0W of { Ptr ipv_am10 ->
case ds_am0X `cast` <Co:5> of { D# x_amvw ->
case writeDoubleOffAddr# ipv_am10 0# x_amvw eta_B1 of s2_amvy
{ __DEFAULT ->
(# s2_amvy, () #)
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 12, joins: 0/0}
$s$fArrayVScse_$s$fStorablePixel_$cpoke
= $s$fStorablePixel_$cpoke_rOAm `cast` <Co:12>
-- RHS size: {terms: 9, types: 3, coercions: 25, joins: 0/0}
$s$fArrayVScse_$s$fStorablePixel
= C:Storable
$s$fArrayVScse_$s$fStorablePixel_$csizeOf
$s$fArrayVScse_$s$fStorablePixel_$calignment
($s$fStorablePixel3 `cast` <Co:12>)
$s$fStorablePixel_$cpokeElemOff
($s$fStorablePixel1 `cast` <Co:13>)
$s$fStorablePixel_$cpokeByteOff
$s$fArrayVScse_$s$fStorablePixel_$cpeek
$s$fArrayVScse_$s$fStorablePixel_$cpoke
-- RHS size: {terms: 3, types: 7, coercions: 0, joins: 0/0}
$s$fArrayVScse1
= ($s$fArrayRSUcse_$s$fColorSpaceYe,
$s$fArrayVScse_$s$fStorablePixel)
-- RHS size: {terms: 5, types: 3, coercions: 10, joins: 0/0}
$s$fArrayVScse_$s$fBaseArrayVScse
= C:BaseArray
($fBaseArrayVScse1 `cast` <Co:5>)
$s$fArrayRSUcse_$s$fColorSpaceYe
($s$fArrayVScse1 `cast` <Co:5>)
$s$fArrayVScse_$s$fBaseArrayVScse_$cdims
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl171_rOAn
= $fVectorVectora_$cbasicUnsafeFreeze
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl172_rOAo
= $fVectorVectora_$cbasicUnsafeThaw
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl173_rOAp
= $fVectorVectora_$cbasicLength $s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl174_rOAq
= $fVectorVectora_$cbasicUnsafeSlice
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl175_rOAr
= $fVectorVectora_$cbasicUnsafeIndexM
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl176_rOAs
= $fVectorVectora_$cbasicUnsafeCopy
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl177_rOAt
= $fVectorVectora_$celemseq $s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 15, types: 24, coercions: 4, joins: 0/0}
lvl178_rOAu
= \ @ m_ahTX dt2_ahUx ->
error
(lvl17_rOxs `cast` <Co:4>)
(unpackAppendCString#
lvl48_rOy0
(case $wshowSignedInt 0# dt2_ahUx [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 129, types: 286, coercions: 123, joins: 0/2}
$s$fArrayVScse_$s$fMArrayVScse_$cfreeze
= \ @ m_ahTX _ $dPrimMonad_ahTZ eta_B1 ->
fmap
($p1Applicative ($p1Monad ($p1PrimMonad $dPrimMonad_ahTZ)))
$WVSImage
(case eta_B1 `cast` <Co:11> of
{ MVGImage dt_ahUf dt1_ahUg mv_ahUh ->
fmap
($p1Applicative ($p1Monad ($p1PrimMonad $dPrimMonad_ahTZ)))
(\ dt2_ahUq ->
case dt2_ahUq of dt3_XhUA { Vector ipv_spdB ipv1_spdC ipv2_spdD ->
VGImage dt_ahUf dt1_ahUg dt3_XhUA
})
(let { $dMonad1_siHf = $p1PrimMonad $dPrimMonad_ahTZ } in
>>=
$dMonad1_siHf
(case $dMonad1_siHf of
{ C:Monad ww1_sDm6 ww2_sDm7 ww3_sDm8 ww4_sDm9 ->
ww2_sDm7
(case mv_ahUh `cast` <Co:7> of
{ MVector dt2_ahUx dt3_ahUy dt4_ahUz ->
case <# dt2_ahUx 0# of {
__DEFAULT ->
case ># dt2_ahUx 1152921504606846975# of {
__DEFAULT ->
(primitive
$dPrimMonad_ahTZ
((\ s_ahUN ->
let { x2_siI9 = *# dt2_ahUx 8# } in
case <# x2_siI9 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_siI9 8# s_ahUN of
{ (# ipv_ahVb, ipv1_ahVc #) ->
(# ipv_ahVb,
MVector
dt2_ahUx
(byteArrayContents# (ipv1_ahVc `cast` <Co:5>))
(PlainPtr ipv1_ahVc) #)
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
})
`cast` <Co:30>))
`cast` <Co:8>;
1# -> (lvl178_rOAu dt2_ahUx) `cast` <Co:8>
};
1# -> ($wlvl1_rOxz dt2_ahUx) `cast` <Co:8>
}
})
(\ v'_ahVG ->
ww3_sDm8
(case v'_ahVG `cast` <Co:7> of
{ MVector ipv_ahVJ ipv1_ahVK ipv2_ahVL ->
case mv_ahUh `cast` <Co:7> of
{ MVector ipv3_ahVP ipv4_ahVQ ipv5_ahVR ->
primitive
$dPrimMonad_ahTZ
((\ s_ahVT ->
case {__pkg_ccall base-4.13.0.0 Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_ahXC
ipv1_ahVK ipv4_ahVQ (int2Word# (*# ipv_ahVJ 8#)) s_ahVT
of
{ (# ds4_ahXH, ds5_ahXI #) ->
case touch# ipv5_ahVR ds4_ahXH of s'_ahXK { __DEFAULT ->
case touch# ipv2_ahVL s'_ahXK of s'1_ahXL { __DEFAULT ->
(# s'1_ahXL, () #)
}
}
})
`cast` <Co:25>)
}
})
(ww4_sDm9 v'_ahVG))
})
(\ ds1_ahXN ->
case ds1_ahXN `cast` <Co:7> of
{ MVector dt2_ahXQ dt3_ahXR dt4_ahXS ->
return $dMonad1_siHf (Vector dt2_ahXQ dt3_ahXR dt4_ahXS)
}))
})
-- RHS size: {terms: 118, types: 218, coercions: 91, joins: 0/2}
$s$fArrayVScse_$s$fMArrayVScse_$cnew
= \ @ m_ahGX _ $dPrimMonad_ahGZ eta_B1 ->
case eta_B1 of { (ipv_ahH6, ipv1_ahH7) ->
fmap
($p1Applicative ($p1Monad ($p1PrimMonad $dPrimMonad_ahGZ)))
$WMVSImage
(fmap
($p1Applicative ($p1Monad ($p1PrimMonad $dPrimMonad_ahGZ)))
($WMVGImage ipv_ahH6 ipv1_ahH7)
(case ipv_ahH6 of { I# x_ahHw ->
case ipv1_ahH7 of { I# y_ahHA ->
let { x1_aiIO = *# x_ahHw y_ahHA } in
case >=# x1_aiIO 0# of {
__DEFAULT -> lvl28_rOxE x1_aiIO;
1# ->
case $p1PrimMonad $dPrimMonad_ahGZ of
{ C:Monad ww1_sDmd ww2_sDme ww3_sDmf ww4_sDmg ->
ww2_sDme
(case <# x1_aiIO 0# of {
__DEFAULT ->
case ># x1_aiIO 1152921504606846975# of {
__DEFAULT ->
(primitive
$dPrimMonad_ahGZ
((\ s_ahLy ->
let { x2_siII = *# x1_aiIO 8# } in
case <# x2_siII 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_siII 8# s_ahLy of
{ (# ipv2_ahLU, ipv3_ahLV #) ->
(# ipv2_ahLU,
MVector
x1_aiIO
(byteArrayContents# (ipv3_ahLV `cast` <Co:5>))
(PlainPtr ipv3_ahLV) #)
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild_00 { }
})
`cast` <Co:30>))
`cast` <Co:8>;
1# -> (lvl178_rOAu x1_aiIO) `cast` <Co:8>
};
1# -> ($wlvl1_rOxz x1_aiIO) `cast` <Co:8>
})
(\ v1_ahTo ->
ww3_sDmf
(case v1_ahTo `cast` <Co:7> of
{ MVector dt_ahTv dt1_ahTw dt2_ahTx ->
primitive
$dPrimMonad_ahGZ
((\ s_ahTz ->
case {__pkg_ccall primitive-0.7.0.1 Addr#
-> Int#
-> Word#
-> Word#
-> State# RealWorld
-> (# State# RealWorld #)}_ahTI
dt1_ahTw 0# (int2Word# (*# dt_ahTv 8#)) 0## s_ahTz
of
{ (# ds9_ahTP #) ->
case touch# dt2_ahTx ds9_ahTP of s'_ahTR { __DEFAULT ->
(# s'_ahTR, () #)
}
})
`cast` <Co:25>)
})
(ww4_sDmg v1_ahTo))
}
}
}
}))
}
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl179_rOAv
= $fMVectorMVectora_$cbasicLength $s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl180_rOAw
= $fMVectorMVectora_$cbasicUnsafeSlice
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl181_rOAx
= $fMVectorMVectora_$cbasicOverlaps
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl182_rOAy
= $fMVectorMVectora_$cbasicUnsafeNew
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 5, types: 10, coercions: 0, joins: 0/0}
lvl183_rOAz
= \ @ m_aihb $dPrimMonad_aihc ->
storableZero $s$fArrayVScse_$s$fStorablePixel $dPrimMonad_aihc
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl184_rOAA
= $fMVectorMVectora_$cbasicUnsafeReplicate
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl185_rOAB
= $fMVectorMVectora_$cbasicUnsafeRead
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl186_rOAC
= $fMVectorMVectora_$cbasicUnsafeWrite
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl187_rOAD
= $fMVectorMVectora_$cbasicClear $s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 5, types: 10, coercions: 0, joins: 0/0}
lvl188_rOAE
= \ @ m_aihs $dPrimMonad_aiht ->
storableSet $s$fArrayVScse_$s$fStorablePixel $dPrimMonad_aiht
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl189_rOAF
= $fMVectorMVectora_$cbasicUnsafeCopy
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl190_rOAG
= $fMVectorMVectora_$cbasicUnsafeMove
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl191_rOAH
= $fMVectorMVectora_$cbasicUnsafeGrow
$s$fArrayVScse_$s$fStorablePixel
-- RHS size: {terms: 14, types: 4, coercions: 0, joins: 0/0}
$s$fArrayVScse_$s$fMVectorMVectora
= C:MVector
lvl179_rOAv
lvl180_rOAw
lvl181_rOAx
lvl182_rOAy
lvl183_rOAz
lvl184_rOAA
lvl185_rOAB
lvl186_rOAC
lvl187_rOAD
lvl188_rOAE
lvl189_rOAF
lvl190_rOAG
lvl191_rOAH
-- RHS size: {terms: 9, types: 4, coercions: 6, joins: 0/0}
$s$fArrayVScse_$s$fVectorVectora
= C:Vector
($s$fArrayVScse_$s$fMVectorMVectora `cast` <Co:6>)
lvl171_rOAn
lvl172_rOAo
lvl173_rOAp
lvl174_rOAq
lvl175_rOAr
lvl176_rOAs
lvl177_rOAt
-- RHS size: {terms: 14, types: 22, coercions: 4, joins: 0/0}
lvl192_rOAI
= \ x_aiIf ->
error
(lvl17_rOxs `cast` <Co:4>)
(unpackAppendCString#
lvl48_rOy0
(case $wshowSignedInt 0# x_aiIf [] of { (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 14, types: 22, coercions: 4, joins: 0/0}
lvl193_rOAJ
= \ x_aiIf ->
error
(lvl22_rOxx `cast` <Co:4>)
(unpackAppendCString#
lvl23_rOxy
(case $wshowSignedInt 0# x_aiIf [] of { (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}))
-- RHS size: {terms: 369, types: 328, coercions: 23, joins: 2/8}
$s$fArrayVScse_$s$fArrayVScse_$cmakeImage
= \ sh_ajy5 ->
case sh_ajy5 of sh1_ajy6 { (ipv_ajye, ipv1_ajyf) ->
let {
ds_smcO
= case ipv_ajye of { I# x_aiCt ->
join {
$j_sjCB
= error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
x_aiCt
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case ipv1_ajyf of { I# ww3_Xjgr ->
case $wshowSignedInt 0# ww3_Xjgr w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl61_rOyh) } in
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_ajyf of { I# x1_XiTd ->
case <=# x1_XiTd 0# of {
__DEFAULT -> sh1_ajy6;
1# -> jump $j_sjCB
}
};
1# -> jump $j_sjCB
}
} } in
\ x_ajy8 ->
case ds_smcO of { (ipv2_ajyF, ipv3_ajyG) ->
case ipv2_ajyF of { I# x1_ajyK ->
case ipv3_ajyG of { I# y_ajyO ->
case runRW#
(\ s1_ajCm ->
let { n_srRo = *# x1_ajyK y_ajyO } in
join {
$j_sxqK x2_aiIf
= case <# x2_aiIf 0# of {
__DEFAULT ->
case ># x2_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x3_aj4J = *# x2_aiIf 8# } in
case <# x3_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x3_aj4J 8# s1_ajCm of
{ (# ipv4_aj4T, ipv5_aj4U #) ->
let {
ipv6_sugY = byteArrayContents# (ipv5_aj4U `cast` <Co:5>) } in
let { ipv7_sugZ = PlainPtr ipv5_aj4U } in
letrec {
$s$wfoldlM'_loop_sKUw
= \ sc_sKUv sc1_sKUu sc2_sKUt ->
case <# sc1_sKUu n_srRo of {
__DEFAULT -> (# sc_sKUv, I# sc2_sKUt #);
1# ->
case (x_ajy8
(case y_ajyO of wild2_ajLz {
__DEFAULT ->
case ># sc1_sKUu 0# of {
__DEFAULT ->
case <# sc1_sKUu 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKUu wild2_ajLz
of
{ (# ipv8_ajLE, ipv9_ajLF #) ->
(I# ipv8_ajLE, I# ipv9_ajLF)
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKUu wild2_ajLz
of
{ (# ipv8_ajLK,
ipv9_ajLL #) ->
(I# ipv8_ajLK,
I# ipv9_ajLL)
};
1# ->
case quotRemInt#
(+# sc1_sKUu 1#)
wild2_ajLz
of
{ (# ipv8_ajLP,
ipv9_ajLQ #) ->
(I# (-# ipv8_ajLP 1#),
I#
(-#
(+#
ipv9_ajLQ
wild2_ajLz)
1#))
}
}
};
1# ->
case <# wild2_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKUu 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKUu wild2_ajLz
of
{ (# ipv8_ajLW,
ipv9_ajLX #) ->
(I# ipv8_ajLW,
I# ipv9_ajLX)
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKUu
wild2_ajLz
of
{ (# ipv8_ajM2,
ipv9_ajM3 #) ->
(I# ipv8_ajM2,
I# ipv9_ajM3)
};
1# ->
case quotRemInt#
(+# sc1_sKUu 1#)
wild2_ajLz
of
{ (# ipv8_ajM7,
ipv9_ajM8 #) ->
(I# (-# ipv8_ajM7 1#),
I#
(-#
(+#
ipv9_ajM8
wild2_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKUu 1#)
wild2_ajLz
of
{ (# ipv8_ajMc, ipv9_ajMd #) ->
(I# (-# ipv8_ajMc 1#),
I#
(+#
(+# ipv9_ajMd wild2_ajLz)
1#))
}
}
};
-1# ->
case sc1_sKUu of wild3_ajMf {
__DEFAULT ->
case ># wild3_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild3_ajMf -1#
of
{ (# ipv8_ajMk, ipv9_ajMl #) ->
(I# ipv8_ajMk, I# ipv9_ajMl)
};
1# ->
case quotRemInt#
(-# wild3_ajMf 1#) -1#
of
{ (# ipv8_ajMu, ipv9_ajMv #) ->
(I# (-# ipv8_ajMu 1#),
I# ipv9_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild3_00 { }
}))
`cast` <Co:5>
of
{ D# x4_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv6_sugY (*# sc2_sKUt 8#))
0#
x4_amvw
sc_sKUv
of s2_amvy
{ __DEFAULT ->
case touch# ipv7_sugZ s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKUw
s'_aj0h (+# sc1_sKUu 1#) (+# sc2_sKUt 1#)
}
}
}
}; } in
case $s$wfoldlM'_loop_sKUw ipv4_aj4T 0# 0# of
{ (# ipv8_ajAB, ipv9_ajAC #) ->
case ipv9_ajAC of { I# dt1_ahQ5 ->
(# ipv8_ajAB, Vector dt1_ahQ5 ipv6_sugY ipv7_sugZ #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI x2_aiIf of wild2_00 { }
};
1# -> case lvl193_rOAJ x2_aiIf of wild2_00 { }
} } in
case <=# n_srRo 0# of {
__DEFAULT -> jump $j_sxqK n_srRo;
1# -> jump $j_sxqK 0#
})
of
{ (# ipv4_ajCx, ipv5_ajCy #) ->
case ipv5_ajCy of dt_XhUA { Vector ipv6_soSE ipv7_soSF ipv8_soSG ->
(VGImage x1_ajyK y_ajyO dt_XhUA) `cast` <Co:9>
}
}
}
}
}
}
-- RHS size: {terms: 28, types: 39, coercions: 14, joins: 0/0}
$s$fArrayVScse_$s$fArrayVScse_$cindex00
= \ ds_ajpW ->
case ds_ajpW `cast` <Co:7> of { VGImage dt_ajq2 dt1_ajq3 v1_ajq4 ->
case v1_ajq4 of { Vector dt2_sHp3 dt3_sHp4 dt4_sHp5 ->
case <# 0# dt2_sHp3 of {
__DEFAULT -> lvl120_rOzo dt2_sHp3;
1# ->
case readDoubleOffAddr# dt3_sHp4 0# realWorld# of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHp5 ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
}
}
}
}
-- RHS size: {terms: 133, types: 316, coercions: 38, joins: 0/4}
$s$fArrayVScse_$s$fArrayVScse_$cmap
= \ @ cs'_ajpv @ e'_ajpw $dArray_ajpx eta_B2 eta1_B1 ->
case eta1_B1 `cast` <Co:7> of { VGImage dt_ajpE dt1_ajpF v1_ajpG ->
case $p1Array $dArray_ajpx of
{ C:Vector ww1_sDn2 ww2_sDn3 ww3_sDn4 ww4_sDn5 ww5_sDn6 ww6_sDn7
ww7_sDn8 ww8_sDn9 ->
case ww4_sDn5 (v1_ajpG `cast` <Co:6>) of { I# ipv_aipC ->
case runRW#
(\ s1_ajCm ->
case <# ipv_aipC 0# of {
__DEFAULT ->
case ># ipv_aipC 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# ipv_aipC 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv1_aj4T, ipv2_aj4U #) ->
let { ipv5_suiO = byteArrayContents# (ipv2_aj4U `cast` <Co:5>) } in
let { ipv3_suiP = PlainPtr ipv2_aj4U } in
letrec {
$s$wfoldlM'_loop_sKUi
= \ sc_sKUh sc1_sKUg sc2_sKUf ->
case >=# sc1_sKUg ipv_aipC of {
__DEFAULT ->
case ww6_sDn7
$fMonadBox (v1_ajpG `cast` <Co:6>) (I# sc1_sKUg)
of
{ Box x_aisy ->
case (eta_B2 x_aisy) `cast` <Co:5> of { D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suiO (*# sc2_sKUf 8#))
0#
x1_amvw
sc_sKUh
of s2_amvy
{ __DEFAULT ->
case touch# ipv3_suiP s2_amvy of s'_aj0h { __DEFAULT ->
$s$wfoldlM'_loop_sKUi
s'_aj0h (+# sc1_sKUg 1#) (+# sc2_sKUf 1#)
}
}
}
};
1# -> (# sc_sKUh, I# sc2_sKUf #)
}; } in
case $s$wfoldlM'_loop_sKUi ipv1_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt3_ahQ5 ->
(# ipv6_ajAB, Vector dt3_ahQ5 ipv5_suiO ipv3_suiP #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild1_00 { }
};
1# -> case lvl192_rOAI ipv_aipC of wild1_00 { }
};
1# -> case lvl193_rOAJ ipv_aipC of wild1_00 { }
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt2_XhUA
{ Vector ipv4_soYj ipv5_soYk ipv6_soYl ->
(VGImage dt_ajpE dt1_ajpF dt2_XhUA) `cast` <Co:9>
}
}
}
}
}
-- RHS size: {terms: 313, types: 417, coercions: 38, joins: 0/4}
$s$fArrayVScse_$s$fArrayVScse_$cimap
= \ @ cs'_ajoV @ e'_ajoW $dArray_ajoX eta_B2 eta1_B1 ->
case eta1_B1 `cast` <Co:7> of { VGImage dt_ajp5 dt1_ajp6 v1_ajp7 ->
case $p1Array $dArray_ajoX of
{ C:Vector ww1_sDnq ww2_sDnr ww3_sDns ww4_sDnt ww5_sDnu ww6_sDnv
ww7_sDnw ww8_sDnx ->
case ww4_sDnt (v1_ajp7 `cast` <Co:6>) of { I# ipv_aipC ->
case runRW#
(\ s1_ajCm ->
case <# ipv_aipC 0# of {
__DEFAULT ->
case ># ipv_aipC 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# ipv_aipC 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv1_aj4T, ipv2_aj4U #) ->
let { ipv5_suk4 = byteArrayContents# (ipv2_aj4U `cast` <Co:5>) } in
let { ipv3_suk5 = PlainPtr ipv2_aj4U } in
letrec {
$s$wfoldlM'_loop_sKUa
= \ sc_sKU9 sc1_sKU8 sc2_sKU7 sc3_sKU6 ->
case >=# sc2_sKU7 ipv_aipC of {
__DEFAULT ->
case ww6_sDnv
$fMonadBox (v1_ajp7 `cast` <Co:6>) (I# sc2_sKU7)
of
{ Box x_aisy ->
case x_aisy of px_ajpn { __DEFAULT ->
case (eta_B2
(case dt1_ajp6 of wild2_ajLz {
__DEFAULT ->
case ># sc1_sKU8 0# of {
__DEFAULT ->
case <# sc1_sKU8 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKU8 wild2_ajLz of
{ (# ipv4_ajLE, ipv6_ajLF #) ->
(I# ipv4_ajLE, I# ipv6_ajLF)
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKU8 wild2_ajLz
of
{ (# ipv4_ajLK, ipv6_ajLL #) ->
(I# ipv4_ajLK, I# ipv6_ajLL)
};
1# ->
case quotRemInt#
(+# sc1_sKU8 1#) wild2_ajLz
of
{ (# ipv4_ajLP, ipv6_ajLQ #) ->
(I# (-# ipv4_ajLP 1#),
I#
(-#
(+# ipv6_ajLQ wild2_ajLz)
1#))
}
}
};
1# ->
case <# wild2_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKU8 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKU8 wild2_ajLz
of
{ (# ipv4_ajLW, ipv6_ajLX #) ->
(I# ipv4_ajLW, I# ipv6_ajLX)
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKU8 wild2_ajLz
of
{ (# ipv4_ajM2, ipv6_ajM3 #) ->
(I# ipv4_ajM2, I# ipv6_ajM3)
};
1# ->
case quotRemInt#
(+# sc1_sKU8 1#)
wild2_ajLz
of
{ (# ipv4_ajM7, ipv6_ajM8 #) ->
(I# (-# ipv4_ajM7 1#),
I#
(-#
(+# ipv6_ajM8 wild2_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKU8 1#) wild2_ajLz
of
{ (# ipv4_ajMc, ipv6_ajMd #) ->
(I# (-# ipv4_ajMc 1#),
I# (+# (+# ipv6_ajMd wild2_ajLz) 1#))
}
}
};
-1# ->
case sc1_sKU8 of wild3_ajMf {
__DEFAULT ->
case ># wild3_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild3_ajMf -1# of
{ (# ipv4_ajMk, ipv6_ajMl #) ->
(I# ipv4_ajMk, I# ipv6_ajMl)
};
1# ->
case quotRemInt# (-# wild3_ajMf 1#) -1#
of
{ (# ipv4_ajMu, ipv6_ajMv #) ->
(I# (-# ipv4_ajMu 1#), I# ipv6_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild3_00 { }
})
px_ajpn)
`cast` <Co:5>
of
{ D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suk4 (*# sc3_sKU6 8#))
0#
x1_amvw
sc_sKU9
of s2_amvy
{ __DEFAULT ->
case touch# ipv3_suk5 s2_amvy of s'_aj0h { __DEFAULT ->
$s$wfoldlM'_loop_sKUa
s'_aj0h (+# sc1_sKU8 1#) (+# sc2_sKU7 1#) (+# sc3_sKU6 1#)
}
}
}
}
};
1# -> (# sc_sKU9, I# sc3_sKU6 #)
}; } in
case $s$wfoldlM'_loop_sKUa ipv1_aj4T 0# 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt3_ahQ5 ->
(# ipv6_ajAB, Vector dt3_ahQ5 ipv5_suk4 ipv3_suk5 #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild1_00 { }
};
1# -> case lvl192_rOAI ipv_aipC of wild1_00 { }
};
1# -> case lvl193_rOAJ ipv_aipC of wild1_00 { }
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt2_XhUA
{ Vector ipv4_soYN ipv5_soYO ipv6_soYP ->
(VGImage dt_ajp5 dt1_ajp6 dt2_XhUA) `cast` <Co:9>
}
}
}
}
}
-- RHS size: {terms: 1,587,
types: 1,475,
coercions: 600,
joins: 9/47}
$s$fArrayVScse_$s$fArrayVScse_$czipWith
= \ @ cs1_ajna
@ e1_ajnb
@ cs2_ajnc
@ e2_ajnd
$dArray_ajne
$dArray1_ajnf
eta_B3
eta1_B2
eta2_B1 ->
case eta1_B2 `cast` <Co:7> of { VGImage dt_ajnp dt1_ajnq v1_ajnr ->
let { $dVector2_sjNo = $p1Array $dArray_ajne } in
let { $dVector1_sjNp = $p1Array $dArray1_ajnf } in
join {
fail_sjNl _
= case eta2_B1 `cast` <Co:7> of
{ VGImage dt2_ajnz dt3_ajnA v2_ajnB ->
join {
fail1_sjNy _
= join {
$j_sjNG
= case basicLength ($dVector2_sjNo `cast` <Co:5>) v1_ajnr of
{ I# ipv_aipC ->
case basicLength ($dVector1_sjNp `cast` <Co:5>) v2_ajnB of
{ I# ipv1_XiHj ->
case runRW#
(\ s1_ajCm ->
join {
$j1_sxvi x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray#
x2_aj4J 8# s1_ajCm
of
{ (# ipv2_aj4T, ipv3_aj4U #) ->
let {
ipv5_sul3
= byteArrayContents#
(ipv3_aj4U `cast` <Co:5>) } in
let { ipv4_sul4 = PlainPtr ipv3_aj4U } in
letrec {
$s$wfoldlM'_loop_sKT0
= \ sc_sKSZ sc1_sKSY sc2_sKSX sc3_sKSW ->
case >=# sc2_sKSX ipv_aipC of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadBox
v1_ajnr
(I# sc2_sKSX)
of
{ Box x1_aisy ->
case >=# sc1_sKSY ipv1_XiHj of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadBox
v2_ajnB
(I# sc1_sKSY)
of
{ Box x3_XiFJ ->
case (eta_B3 x1_aisy x3_XiFJ)
`cast` <Co:5>
of
{ D# x4_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv5_sul3
(*# sc3_sKSW 8#))
0#
x4_amvw
sc_sKSZ
of s2_amvy
{ __DEFAULT ->
case touch# ipv4_sul4 s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKT0
s'_aj0h
(+# sc1_sKSY 1#)
(+# sc2_sKSX 1#)
(+# sc3_sKSW 1#)
}
}
}
};
1# -> (# sc_sKSZ, I# sc3_sKSW #)
}
};
1# -> (# sc_sKSZ, I# sc3_sKSW #)
}; } in
case $s$wfoldlM'_loop_sKT0 ipv2_aj4T 0# 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB,
Vector dt5_ahQ5 ipv5_sul3 ipv4_sul4 #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2
of wild2_00 {
}
};
1# -> case lvl192_rOAI x_aiIf of wild2_00 { }
};
1# -> case lvl193_rOAJ x_aiIf of wild2_00 { }
} } in
case <=# ipv_aipC ipv1_XiHj of {
__DEFAULT -> jump $j1_sxvi ipv1_XiHj;
1# -> jump $j1_sxvi ipv_aipC
})
of
{ (# ipv2_ajCx, ipv3_ajCy #) ->
case ipv3_ajCy of dt4_XhUA
{ Vector ipv4_soYY ipv5_soYZ ipv6_soZ0 ->
(VGImage dt_ajnp dt1_ajnq dt4_XhUA) `cast` <Co:9>
}
}
}
} } in
case ==# dt_ajnp dt2_ajnz of {
__DEFAULT ->
case ==# dt1_ajnq dt3_ajnA of {
__DEFAULT ->
join {
$w$j1_sDoC w_sDow ww_sDoA
= join {
$w$j2_sDov w1_sDop ww1_sDot
= case runRW#
(\ s1_ajCm ->
let { n_ss0u = *# w_sDow w1_sDop } in
join {
$j1_sxwL x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray#
x2_aj4J 8# s1_ajCm
of
{ (# ipv_aj4T, ipv1_aj4U #) ->
let {
ipv5_sumt
= byteArrayContents#
(ipv1_aj4U
`cast` <Co:5>) } in
let {
ipv2_sumu
= PlainPtr ipv1_aj4U } in
let {
lvl205_sHqP
= basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(case overflowError
of wild2_00 {
}) } in
let {
lvl206_sHqN
= basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(case overflowError
of wild2_00 {
}) } in
letrec {
foldlM'_loop_sumQ
= \ w2_sDob
w3_sDoc
w4_sDod
w5_sDoe ->
case w3_sDoc of
{ I# ww3_sDoh ->
case w4_sDod of
{ I# ww5_sDol ->
$wfoldlM'_loop_sDon
w2_sDob
ww3_sDoh
ww5_sDol
w5_sDoe
}
};
$wfoldlM'_loop_sDon
= \ w2_sDob
ww2_sDoh
ww3_sDol
w3_sDoe ->
case w2_sDob of
{ __DEFAULT ->
case <# ww3_sDol n_ss0u
of {
__DEFAULT ->
(# w3_sDoe,
I# ww2_sDoh #);
1# ->
join {
$j2_syDe x1_amvw
= case writeDoubleOffAddr#
(plusAddr#
ipv5_sumt
(*#
ww2_sDoh
8#))
0#
x1_amvw
w3_sDoe
of s2_amvy
{ __DEFAULT ->
case touch#
ipv2_sumu
s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKTq
s'_aj0h
(+#
ww3_sDol
1#)
(+#
ww2_sDoh
1#)
}
} } in
case ww1_sDot
of wild2_ajLz {
__DEFAULT ->
case >#
ww3_sDol 0#
of {
__DEFAULT ->
case <#
ww3_sDol
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDol
wild2_ajLz
of
{ (# ipv3_ajLE,
ipv4_ajLF #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDol
wild2_ajLz
of
{ (# ipv3_ajLK,
ipv4_ajLL #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
ww3_sDol
1#)
wild2_ajLz
of
{ (# ipv3_ajLP,
ipv4_ajLQ #) ->
let {
ipv6_spOC
= -#
ipv3_ajLP
1# } in
let {
ipv7_spOD
= -#
(+#
ipv4_ajLQ
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spOC)
ipv7_spOD)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spOC)
ipv7_spOD)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
}
};
1# ->
case <#
wild2_ajLz
0#
of {
__DEFAULT ->
case <#
ww3_sDol
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDol
wild2_ajLz
of
{ (# ipv3_ajLW,
ipv4_ajLX #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDol
wild2_ajLz
of
{ (# ipv3_ajM2,
ipv4_ajM3 #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
ww3_sDol
1#)
wild2_ajLz
of
{ (# ipv3_ajM7,
ipv4_ajM8 #) ->
let {
ipv6_spOQ
= -#
ipv3_ajM7
1# } in
let {
ipv7_spOR
= -#
(+#
ipv4_ajM8
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spOQ)
ipv7_spOR)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spOQ)
ipv7_spOR)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
}
};
1# ->
case quotRemInt#
(-#
ww3_sDol
1#)
wild2_ajLz
of
{ (# ipv3_ajMc,
ipv4_ajMd #) ->
let {
ipv6_spOV
= -#
ipv3_ajMc
1# } in
let {
ipv7_spOW
= +#
(+#
ipv4_ajMd
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spOV)
ipv7_spOW)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spOV)
ipv7_spOW)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
}
};
-1# ->
case ww3_sDol
of wild3_ajMf {
__DEFAULT ->
case >#
wild3_ajMf
0#
of {
__DEFAULT ->
case quotRemInt#
wild3_ajMf
-1#
of
{ (# ipv3_ajMk,
ipv4_ajMl #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(-#
wild3_ajMf
1#)
-1#
of
{ (# ipv3_ajMu,
ipv4_ajMv #) ->
let {
ipv6_spP9
= -#
ipv3_ajMu
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spP9)
ipv4_ajMv)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spP9)
ipv4_ajMv)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
};
-9223372036854775808# ->
case lvl206_sHqN
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case lvl205_sHqP
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
0# ->
case divZeroError
of wild3_00 {
}
}
}
};
$s$wfoldlM'_loop_sKTq
= \ sc_sKTp
sc1_sKTo
sc2_sKTn ->
case <# sc1_sKTo n_ss0u
of {
__DEFAULT ->
(# sc_sKTp,
I# sc2_sKTn #);
1# ->
join {
$j2_syDe x1_amvw
= case writeDoubleOffAddr#
(plusAddr#
ipv5_sumt
(*#
sc2_sKTn
8#))
0#
x1_amvw
sc_sKTp
of s2_amvy
{ __DEFAULT ->
case touch#
ipv2_sumu
s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKTq
s'_aj0h
(+#
sc1_sKTo
1#)
(+#
sc2_sKTn
1#)
}
} } in
case ww1_sDot
of wild2_ajLz {
__DEFAULT ->
case >#
sc1_sKTo 0#
of {
__DEFAULT ->
case <#
sc1_sKTo
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKTo
wild2_ajLz
of
{ (# ipv3_ajLE,
ipv4_ajLF #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKTo
wild2_ajLz
of
{ (# ipv3_ajLK,
ipv4_ajLL #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
sc1_sKTo
1#)
wild2_ajLz
of
{ (# ipv3_ajLP,
ipv4_ajLQ #) ->
let {
ipv6_spOC
= -#
ipv3_ajLP
1# } in
let {
ipv7_spOD
= -#
(+#
ipv4_ajLQ
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spOC)
ipv7_spOD)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spOC)
ipv7_spOD)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
}
};
1# ->
case <#
wild2_ajLz
0#
of {
__DEFAULT ->
case <#
sc1_sKTo
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKTo
wild2_ajLz
of
{ (# ipv3_ajLW,
ipv4_ajLX #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKTo
wild2_ajLz
of
{ (# ipv3_ajM2,
ipv4_ajM3 #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
sc1_sKTo
1#)
wild2_ajLz
of
{ (# ipv3_ajM7,
ipv4_ajM8 #) ->
let {
ipv6_spOQ
= -#
ipv3_ajM7
1# } in
let {
ipv7_spOR
= -#
(+#
ipv4_ajM8
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spOQ)
ipv7_spOR)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spOQ)
ipv7_spOR)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
}
};
1# ->
case quotRemInt#
(-#
sc1_sKTo
1#)
wild2_ajLz
of
{ (# ipv3_ajMc,
ipv4_ajMd #) ->
let {
ipv6_spOV
= -#
ipv3_ajMc
1# } in
let {
ipv7_spOW
= +#
(+#
ipv4_ajMd
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spOV)
ipv7_spOW)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spOV)
ipv7_spOW)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
}
};
-1# ->
case sc1_sKTo
of wild3_ajMf {
__DEFAULT ->
case >#
wild3_ajMf
0#
of {
__DEFAULT ->
case quotRemInt#
wild3_ajMf
-1#
of
{ (# ipv3_ajMk,
ipv4_ajMl #) ->
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(-#
wild3_ajMf
1#)
-1#
of
{ (# ipv3_ajMu,
ipv4_ajMv #) ->
let {
ipv6_spP9
= -#
ipv3_ajMu
1# } in
case (basicUnsafeIndexM
($dVector2_sjNo
`cast` <Co:5>)
$fMonadId
v1_ajnr
(I#
(+#
(*#
dt1_ajnq
ipv6_spP9)
ipv4_ajMv)))
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjNp
`cast` <Co:5>)
$fMonadId
v2_ajnB
(I#
(+#
(*#
dt3_ajnA
ipv6_spP9)
ipv4_ajMv)))
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
}
};
-9223372036854775808# ->
case lvl206_sHqN
`cast` <Co:4>
of px1_ajod
{ __DEFAULT ->
case lvl205_sHqP
`cast` <Co:4>
of px2_ajom
{ __DEFAULT ->
case (eta_B3
px1_ajod
px2_ajom)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syDe
x1_amvw
}
}
}
};
0# ->
case divZeroError
of wild3_00 {
}
}
}; } in
case $s$wfoldlM'_loop_sKTq
ipv_aj4T 0# 0#
of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB,
Vector
dt5_ahQ5
ipv5_sumt
ipv2_sumu #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2
of wild2_00 {
}
};
1# ->
case lvl192_rOAI x_aiIf of wild2_00 {
}
};
1# ->
case lvl193_rOAJ x_aiIf of wild2_00 { }
} } in
case <=# n_ss0u 0# of {
__DEFAULT -> jump $j1_sxwL n_ss0u;
1# -> jump $j1_sxwL 0#
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt4_XhUA
{ Vector ipv_soZG ipv4_soZH ipv5_soZI ->
(VGImage ww_sDoA ww1_sDot dt4_XhUA) `cast` <Co:9>
}
} } in
case <=# dt1_ajnq dt3_ajnA of {
__DEFAULT -> jump $w$j2_sDov dt3_ajnA dt3_ajnA;
1# -> jump $w$j2_sDov dt1_ajnq dt1_ajnq
} } in
case <=# dt_ajnp dt2_ajnz of {
__DEFAULT -> jump $w$j1_sDoC dt2_ajnz dt2_ajnz;
1# -> jump $w$j1_sDoC dt_ajnp dt_ajnp
};
1# -> jump $j_sjNG
};
1# -> jump $j_sjNG
} } in
case dt2_ajnz of {
__DEFAULT -> jump fail1_sjNy void#;
1# ->
case dt3_ajnA of {
__DEFAULT -> jump fail1_sjNy void#;
1# ->
case (basicUnsafeIndexM
($dVector1_sjNp `cast` <Co:5>) $fMonadId v2_ajnB lvl4_rOxf)
`cast` <Co:4>
of px2_ajov
{ __DEFAULT ->
case basicLength ($dVector2_sjNo `cast` <Co:5>) v1_ajnr of
{ I# ipv_aipC ->
case runRW#
(\ s1_ajCm ->
case <# ipv_aipC 0# of {
__DEFAULT ->
case ># ipv_aipC 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# ipv_aipC 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv1_aj4T, ipv2_aj4U #) ->
let {
ipv5_sunf
= byteArrayContents# (ipv2_aj4U `cast` <Co:5>) } in
let { ipv3_sung = PlainPtr ipv2_aj4U } in
letrec {
$s$wfoldlM'_loop_sKTR
= \ sc_sKTQ sc1_sKTP sc2_sKTO ->
case >=# sc1_sKTP ipv_aipC of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector2_sjNo `cast` <Co:5>)
$fMonadBox
v1_ajnr
(I# sc1_sKTP)
of
{ Box x_aisy ->
case (eta_B3 x_aisy px2_ajov) `cast` <Co:5> of
{ D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_sunf (*# sc2_sKTO 8#))
0#
x1_amvw
sc_sKTQ
of s2_amvy
{ __DEFAULT ->
case touch# ipv3_sung s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKTR
s'_aj0h (+# sc1_sKTP 1#) (+# sc2_sKTO 1#)
}
}
}
};
1# -> (# sc_sKTQ, I# sc2_sKTO #)
}; } in
case $s$wfoldlM'_loop_sKTR ipv1_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB, Vector dt5_ahQ5 ipv5_sunf ipv3_sung #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI ipv_aipC of wild2_00 { }
};
1# -> case lvl193_rOAJ ipv_aipC of wild2_00 { }
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt4_XhUA
{ Vector ipv4_soZQ ipv5_soZR ipv6_soZS ->
(VGImage dt_ajnp dt1_ajnq dt4_XhUA) `cast` <Co:9>
}
}
}
}
}
}
} } in
case dt_ajnp of {
__DEFAULT -> jump fail_sjNl void#;
1# ->
case dt1_ajnq of {
__DEFAULT -> jump fail_sjNl void#;
1# ->
case eta2_B1 `cast` <Co:7> of
{ VGImage dt2_ajoE dt3_ajoF v2_ajoG ->
case (basicUnsafeIndexM
($dVector2_sjNo `cast` <Co:5>) $fMonadId v1_ajnr lvl4_rOxf)
`cast` <Co:4>
of px1_ajoI
{ __DEFAULT ->
case basicLength ($dVector1_sjNp `cast` <Co:5>) v2_ajoG of
{ I# ipv_aipC ->
case runRW#
(\ s1_ajCm ->
case <# ipv_aipC 0# of {
__DEFAULT ->
case ># ipv_aipC 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# ipv_aipC 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv1_aj4T, ipv2_aj4U #) ->
let {
ipv5_suo0 = byteArrayContents# (ipv2_aj4U `cast` <Co:5>) } in
let { ipv3_suo1 = PlainPtr ipv2_aj4U } in
let { f4_sjNu = eta_B3 px1_ajoI } in
letrec {
$s$wfoldlM'_loop_sKU0
= \ sc_sKTZ sc1_sKTY sc2_sKTX ->
case >=# sc1_sKTY ipv_aipC of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector1_sjNp `cast` <Co:5>)
$fMonadBox
v2_ajoG
(I# sc1_sKTY)
of
{ Box x_aisy ->
case (f4_sjNu x_aisy) `cast` <Co:5> of
{ D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suo0 (*# sc2_sKTX 8#))
0#
x1_amvw
sc_sKTZ
of s2_amvy
{ __DEFAULT ->
case touch# ipv3_suo1 s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKU0
s'_aj0h (+# sc1_sKTY 1#) (+# sc2_sKTX 1#)
}
}
}
};
1# -> (# sc_sKTZ, I# sc2_sKTX #)
}; } in
case $s$wfoldlM'_loop_sKU0 ipv1_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB, Vector dt5_ahQ5 ipv5_suo0 ipv3_suo1 #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI ipv_aipC of wild2_00 { }
};
1# -> case lvl193_rOAJ ipv_aipC of wild2_00 { }
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt4_XhUA
{ Vector ipv4_soZZ ipv5_sp00 ipv6_sp01 ->
(VGImage dt2_ajoE dt3_ajoF dt4_XhUA) `cast` <Co:9>
}
}
}
}
}
}
}
}
-- RHS size: {terms: 2,220,
types: 1,805,
coercions: 600,
joins: 9/46}
$s$fArrayVScse_$s$fArrayVScse_$cizipWith
= \ @ cs1_ajkL
@ e1_ajkM
@ cs2_ajkN
@ e2_ajkO
$dArray_ajkP
$dArray1_ajkQ
eta_B3
eta1_B2
eta2_B1 ->
case eta1_B2 `cast` <Co:7> of { VGImage dt_ajl0 dt1_ajl1 v1_ajl2 ->
let { $dVector2_sjQO = $p1Array $dArray_ajkP } in
let { $dVector1_sjQP = $p1Array $dArray1_ajkQ } in
join {
fail_sjQL _
= case eta2_B1 `cast` <Co:7> of
{ VGImage dt2_ajla dt3_ajlb v2_ajlc ->
join {
fail1_sjQY _
= join {
$j_sjR6
= case basicLength ($dVector2_sjQO `cast` <Co:5>) v1_ajl2 of
{ I# ipv_aipC ->
case basicLength ($dVector1_sjQP `cast` <Co:5>) v2_ajlc of
{ I# ipv1_XiHv ->
case runRW#
(\ s1_ajCm ->
join {
$j1_sxAD x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray#
x2_aj4J 8# s1_ajCm
of
{ (# ipv2_aj4T, ipv3_aj4U #) ->
let {
ipv5_supO
= byteArrayContents#
(ipv3_aj4U `cast` <Co:5>) } in
let { ipv4_supP = PlainPtr ipv3_aj4U } in
letrec {
$s$wfoldlM'_loop_sKRJ
= \ sc_sKRI
sc1_sKRH
sc2_sKRF
sc3_sKRG
sc4_sKRE ->
case >=# sc2_sKRF ipv_aipC of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadBox
v1_ajl2
(I# sc2_sKRF)
of
{ Box x1_aisy ->
case >=# sc1_sKRH ipv1_XiHv of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadBox
v2_ajlc
(I# sc1_sKRH)
of
{ Box x3_XiFM ->
case x1_aisy of px1_ajlt
{ __DEFAULT ->
case x3_XiFM of px2_ajlu
{ __DEFAULT ->
case (eta_B3
(case dt1_ajl1
of wild4_ajLz {
__DEFAULT ->
case ># sc3_sKRG 0#
of {
__DEFAULT ->
case <#
sc3_sKRG
0#
of {
__DEFAULT ->
case quotRemInt#
sc3_sKRG
wild4_ajLz
of
{ (# ipv6_ajLE,
ipv7_ajLF #) ->
(I#
ipv6_ajLE,
I#
ipv7_ajLF)
};
1# ->
case >#
wild4_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
sc3_sKRG
wild4_ajLz
of
{ (# ipv6_ajLK,
ipv7_ajLL #) ->
(I#
ipv6_ajLK,
I#
ipv7_ajLL)
};
1# ->
case quotRemInt#
(+#
sc3_sKRG
1#)
wild4_ajLz
of
{ (# ipv6_ajLP,
ipv7_ajLQ #) ->
(I#
(-#
ipv6_ajLP
1#),
I#
(-#
(+#
ipv7_ajLQ
wild4_ajLz)
1#))
}
}
};
1# ->
case <#
wild4_ajLz
0#
of {
__DEFAULT ->
case <#
sc3_sKRG
0#
of {
__DEFAULT ->
case quotRemInt#
sc3_sKRG
wild4_ajLz
of
{ (# ipv6_ajLW,
ipv7_ajLX #) ->
(I#
ipv6_ajLW,
I#
ipv7_ajLX)
};
1# ->
case >#
wild4_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
sc3_sKRG
wild4_ajLz
of
{ (# ipv6_ajM2,
ipv7_ajM3 #) ->
(I#
ipv6_ajM2,
I#
ipv7_ajM3)
};
1# ->
case quotRemInt#
(+#
sc3_sKRG
1#)
wild4_ajLz
of
{ (# ipv6_ajM7,
ipv7_ajM8 #) ->
(I#
(-#
ipv6_ajM7
1#),
I#
(-#
(+#
ipv7_ajM8
wild4_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-#
sc3_sKRG
1#)
wild4_ajLz
of
{ (# ipv6_ajMc,
ipv7_ajMd #) ->
(I#
(-#
ipv6_ajMc
1#),
I#
(+#
(+#
ipv7_ajMd
wild4_ajLz)
1#))
}
}
};
-1# ->
case sc3_sKRG
of wild5_ajMf {
__DEFAULT ->
case >#
wild5_ajMf
0#
of {
__DEFAULT ->
case quotRemInt#
wild5_ajMf
-1#
of
{ (# ipv6_ajMk,
ipv7_ajMl #) ->
(I#
ipv6_ajMk,
I#
ipv7_ajMl)
};
1# ->
case quotRemInt#
(-#
wild5_ajMf
1#)
-1#
of
{ (# ipv6_ajMu,
ipv7_ajMv #) ->
(I#
(-#
ipv6_ajMu
1#),
I#
ipv7_ajMv)
}
};
-9223372036854775808# ->
lvl153_rOzW
};
0# ->
case divZeroError
of wild5_00 {
}
})
px1_ajlt
px2_ajlu)
`cast` <Co:5>
of
{ D# x4_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv5_supO
(*# sc4_sKRE 8#))
0#
x4_amvw
sc_sKRI
of s2_amvy
{ __DEFAULT ->
case touch# ipv4_supP s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKRJ
s'_aj0h
(+# sc1_sKRH 1#)
(+# sc2_sKRF 1#)
(+# sc3_sKRG 1#)
(+# sc4_sKRE 1#)
}
}
}
}
}
};
1# -> (# sc_sKRI, I# sc4_sKRE #)
}
};
1# -> (# sc_sKRI, I# sc4_sKRE #)
}; } in
case $s$wfoldlM'_loop_sKRJ ipv2_aj4T 0# 0# 0# 0#
of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB,
Vector dt5_ahQ5 ipv5_supO ipv4_supP #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2
of wild2_00 {
}
};
1# -> case lvl192_rOAI x_aiIf of wild2_00 { }
};
1# -> case lvl193_rOAJ x_aiIf of wild2_00 { }
} } in
case <=# ipv_aipC ipv1_XiHv of {
__DEFAULT -> jump $j1_sxAD ipv1_XiHv;
1# -> jump $j1_sxAD ipv_aipC
})
of
{ (# ipv2_ajCx, ipv3_ajCy #) ->
case ipv3_ajCy of dt4_XhUA
{ Vector ipv4_sp0P ipv5_sp0Q ipv6_sp0R ->
(VGImage dt_ajl0 dt1_ajl1 dt4_XhUA) `cast` <Co:9>
}
}
}
} } in
case ==# dt_ajl0 dt2_ajla of {
__DEFAULT ->
case ==# dt1_ajl1 dt3_ajlb of {
__DEFAULT ->
join {
$w$j1_sDpM w_sDpG ww_sDpK
= join {
$w$j2_sDpF w1_sDpz ww1_sDpD
= case runRW#
(\ s1_ajCm ->
let { n_ss7h = *# w_sDpG w1_sDpz } in
join {
$j1_sxC6 x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray#
x2_aj4J 8# s1_ajCm
of
{ (# ipv_aj4T, ipv1_aj4U #) ->
let {
ipv5_sure
= byteArrayContents#
(ipv1_aj4U
`cast` <Co:5>) } in
let {
ipv2_surf
= PlainPtr ipv1_aj4U } in
let {
lvl205_sHt2
= basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(case overflowError
of wild2_00 {
}) } in
let {
lvl206_sHt0
= basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(case overflowError
of wild2_00 {
}) } in
letrec {
foldlM'_loop_surB
= \ w2_sDpl
w3_sDpm
w4_sDpn
w5_sDpo ->
case w3_sDpm of
{ I# ww3_sDpr ->
case w4_sDpn of
{ I# ww5_sDpv ->
$wfoldlM'_loop_sDpx
w2_sDpl
ww3_sDpr
ww5_sDpv
w5_sDpo
}
};
$wfoldlM'_loop_sDpx
= \ w2_sDpl
ww2_sDpr
ww3_sDpv
w3_sDpo ->
case w2_sDpl of
{ __DEFAULT ->
case <# ww3_sDpv n_ss7h
of {
__DEFAULT ->
(# w3_sDpo,
I# ww2_sDpr #);
1# ->
join {
$j2_syGp x1_amvw
= case writeDoubleOffAddr#
(plusAddr#
ipv5_sure
(*#
ww2_sDpr
8#))
0#
x1_amvw
w3_sDpo
of s2_amvy
{ __DEFAULT ->
case touch#
ipv2_surf
s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKSc
s'_aj0h
(+#
ww3_sDpv
1#)
(+#
ww2_sDpr
1#)
}
} } in
case ww1_sDpD
of wild2_ajLz {
__DEFAULT ->
case >#
ww3_sDpv 0#
of {
__DEFAULT ->
case <#
ww3_sDpv
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDpv
wild2_ajLz
of
{ (# ipv3_ajLE,
ipv4_ajLF #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajLE,
I#
ipv4_ajLF)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDpv
wild2_ajLz
of
{ (# ipv3_ajLK,
ipv4_ajLL #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajLK,
I#
ipv4_ajLL)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
ww3_sDpv
1#)
wild2_ajLz
of
{ (# ipv3_ajLP,
ipv4_ajLQ #) ->
let {
ipv6_sp1c
= -#
ipv3_ajLP
1# } in
let {
ipv7_sp1d
= -#
(+#
ipv4_ajLQ
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1c)
ipv7_sp1d)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1c)
ipv7_sp1d)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1c,
I#
ipv7_sp1d)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
}
};
1# ->
case <#
wild2_ajLz
0#
of {
__DEFAULT ->
case <#
ww3_sDpv
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDpv
wild2_ajLz
of
{ (# ipv3_ajLW,
ipv4_ajLX #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajLW,
I#
ipv4_ajLX)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
ww3_sDpv
wild2_ajLz
of
{ (# ipv3_ajM2,
ipv4_ajM3 #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajM2,
I#
ipv4_ajM3)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
ww3_sDpv
1#)
wild2_ajLz
of
{ (# ipv3_ajM7,
ipv4_ajM8 #) ->
let {
ipv6_sp1k
= -#
ipv3_ajM7
1# } in
let {
ipv7_sp1l
= -#
(+#
ipv4_ajM8
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1k)
ipv7_sp1l)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1k)
ipv7_sp1l)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1k,
I#
ipv7_sp1l)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
}
};
1# ->
case quotRemInt#
(-#
ww3_sDpv
1#)
wild2_ajLz
of
{ (# ipv3_ajMc,
ipv4_ajMd #) ->
let {
ipv6_sp1n
= -#
ipv3_ajMc
1# } in
let {
ipv7_sp1o
= +#
(+#
ipv4_ajMd
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1n)
ipv7_sp1o)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1n)
ipv7_sp1o)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1n,
I#
ipv7_sp1o)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
}
};
-1# ->
case ww3_sDpv
of wild3_ajMf {
__DEFAULT ->
case >#
wild3_ajMf
0#
of {
__DEFAULT ->
case quotRemInt#
wild3_ajMf
-1#
of
{ (# ipv3_ajMk,
ipv4_ajMl #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajMk,
I#
ipv4_ajMl)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(-#
wild3_ajMf
1#)
-1#
of
{ (# ipv3_ajMu,
ipv4_ajMv #) ->
let {
ipv6_sp1v
= -#
ipv3_ajMu
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1v)
ipv4_ajMv)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1v)
ipv4_ajMv)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1v,
I#
ipv4_ajMv)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
};
-9223372036854775808# ->
case lvl206_sHt0
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case lvl205_sHt2
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
lvl153_rOzW
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
0# ->
case divZeroError
of wild3_00 {
}
}
}
};
$s$wfoldlM'_loop_sKSc
= \ sc_sKSb
sc1_sKSa
sc2_sKS9 ->
case <# sc1_sKSa n_ss7h
of {
__DEFAULT ->
(# sc_sKSb,
I# sc2_sKS9 #);
1# ->
join {
$j2_syGp x1_amvw
= case writeDoubleOffAddr#
(plusAddr#
ipv5_sure
(*#
sc2_sKS9
8#))
0#
x1_amvw
sc_sKSb
of s2_amvy
{ __DEFAULT ->
case touch#
ipv2_surf
s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKSc
s'_aj0h
(+#
sc1_sKSa
1#)
(+#
sc2_sKS9
1#)
}
} } in
case ww1_sDpD
of wild2_ajLz {
__DEFAULT ->
case >#
sc1_sKSa 0#
of {
__DEFAULT ->
case <#
sc1_sKSa
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKSa
wild2_ajLz
of
{ (# ipv3_ajLE,
ipv4_ajLF #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajLE)
ipv4_ajLF)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajLE,
I#
ipv4_ajLF)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKSa
wild2_ajLz
of
{ (# ipv3_ajLK,
ipv4_ajLL #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajLK)
ipv4_ajLL)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajLK,
I#
ipv4_ajLL)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
sc1_sKSa
1#)
wild2_ajLz
of
{ (# ipv3_ajLP,
ipv4_ajLQ #) ->
let {
ipv6_sp1c
= -#
ipv3_ajLP
1# } in
let {
ipv7_sp1d
= -#
(+#
ipv4_ajLQ
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1c)
ipv7_sp1d)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1c)
ipv7_sp1d)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1c,
I#
ipv7_sp1d)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
}
};
1# ->
case <#
wild2_ajLz
0#
of {
__DEFAULT ->
case <#
sc1_sKSa
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKSa
wild2_ajLz
of
{ (# ipv3_ajLW,
ipv4_ajLX #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajLW)
ipv4_ajLX)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajLW,
I#
ipv4_ajLX)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case >#
wild2_ajLz
0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKSa
wild2_ajLz
of
{ (# ipv3_ajM2,
ipv4_ajM3 #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajM2)
ipv4_ajM3)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajM2,
I#
ipv4_ajM3)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(+#
sc1_sKSa
1#)
wild2_ajLz
of
{ (# ipv3_ajM7,
ipv4_ajM8 #) ->
let {
ipv6_sp1k
= -#
ipv3_ajM7
1# } in
let {
ipv7_sp1l
= -#
(+#
ipv4_ajM8
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1k)
ipv7_sp1l)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1k)
ipv7_sp1l)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1k,
I#
ipv7_sp1l)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
}
};
1# ->
case quotRemInt#
(-#
sc1_sKSa
1#)
wild2_ajLz
of
{ (# ipv3_ajMc,
ipv4_ajMd #) ->
let {
ipv6_sp1n
= -#
ipv3_ajMc
1# } in
let {
ipv7_sp1o
= +#
(+#
ipv4_ajMd
wild2_ajLz)
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1n)
ipv7_sp1o)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1n)
ipv7_sp1o)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1n,
I#
ipv7_sp1o)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
}
};
-1# ->
case sc1_sKSa
of wild3_ajMf {
__DEFAULT ->
case >#
wild3_ajMf
0#
of {
__DEFAULT ->
case quotRemInt#
wild3_ajMf
-1#
of
{ (# ipv3_ajMk,
ipv4_ajMl #) ->
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv3_ajMk)
ipv4_ajMl)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv3_ajMk,
I#
ipv4_ajMl)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
1# ->
case quotRemInt#
(-#
wild3_ajMf
1#)
-1#
of
{ (# ipv3_ajMu,
ipv4_ajMv #) ->
let {
ipv6_sp1v
= -#
ipv3_ajMu
1# } in
case (basicUnsafeIndexM
($dVector2_sjQO
`cast` <Co:5>)
$fMonadId
v1_ajl2
(I#
(+#
(*#
dt1_ajl1
ipv6_sp1v)
ipv4_ajMv)))
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case (basicUnsafeIndexM
($dVector1_sjQP
`cast` <Co:5>)
$fMonadId
v2_ajlc
(I#
(+#
(*#
dt3_ajlb
ipv6_sp1v)
ipv4_ajMv)))
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
(I#
ipv6_sp1v,
I#
ipv4_ajMv)
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
}
};
-9223372036854775808# ->
case lvl206_sHt0
`cast` <Co:4>
of px1_ajlZ
{ __DEFAULT ->
case lvl205_sHt2
`cast` <Co:4>
of px2_ajm8
{ __DEFAULT ->
case (eta_B3
lvl153_rOzW
px1_ajlZ
px2_ajm8)
`cast` <Co:5>
of
{ D# x1_amvw ->
jump $j2_syGp
x1_amvw
}
}
}
};
0# ->
case divZeroError
of wild3_00 {
}
}
}; } in
case $s$wfoldlM'_loop_sKSc
ipv_aj4T 0# 0#
of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB,
Vector
dt5_ahQ5
ipv5_sure
ipv2_surf #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2
of wild2_00 {
}
};
1# ->
case lvl192_rOAI x_aiIf of wild2_00 {
}
};
1# ->
case lvl193_rOAJ x_aiIf of wild2_00 { }
} } in
case <=# n_ss7h 0# of {
__DEFAULT -> jump $j1_sxC6 n_ss7h;
1# -> jump $j1_sxC6 0#
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt4_XhUA
{ Vector ipv_sp1x ipv4_sp1y ipv5_sp1z ->
(VGImage ww_sDpK ww1_sDpD dt4_XhUA) `cast` <Co:9>
}
} } in
case <=# dt1_ajl1 dt3_ajlb of {
__DEFAULT -> jump $w$j2_sDpF dt3_ajlb dt3_ajlb;
1# -> jump $w$j2_sDpF dt1_ajl1 dt1_ajl1
} } in
case <=# dt_ajl0 dt2_ajla of {
__DEFAULT -> jump $w$j1_sDpM dt2_ajla dt2_ajla;
1# -> jump $w$j1_sDpM dt_ajl0 dt_ajl0
};
1# -> jump $j_sjR6
};
1# -> jump $j_sjR6
} } in
case dt2_ajla of {
__DEFAULT -> jump fail1_sjQY void#;
1# ->
case dt3_ajlb of {
__DEFAULT -> jump fail1_sjQY void#;
1# ->
case (basicUnsafeIndexM
($dVector1_sjQP `cast` <Co:5>) $fMonadId v2_ajlc lvl4_rOxf)
`cast` <Co:4>
of px2_ajmh
{ __DEFAULT ->
case basicLength ($dVector2_sjQO `cast` <Co:5>) v1_ajl2 of
{ I# ipv_aipC ->
case runRW#
(\ s1_ajCm ->
case <# ipv_aipC 0# of {
__DEFAULT ->
case ># ipv_aipC 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# ipv_aipC 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv1_aj4T, ipv2_aj4U #) ->
let {
ipv5_susx
= byteArrayContents# (ipv2_aj4U `cast` <Co:5>) } in
let { ipv3_susy = PlainPtr ipv2_aj4U } in
letrec {
$s$wfoldlM'_loop_sKSE
= \ sc_sKSD sc1_sKSC sc2_sKSB sc3_sKSA ->
case >=# sc2_sKSB ipv_aipC of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector2_sjQO `cast` <Co:5>)
$fMonadBox
v1_ajl2
(I# sc2_sKSB)
of
{ Box x_aisy ->
case x_aisy of px1_ajmA { __DEFAULT ->
case (eta_B3
(case dt1_ajl1 of wild3_ajLz {
__DEFAULT ->
case ># sc1_sKSC 0# of {
__DEFAULT ->
case <# sc1_sKSC 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKSC
wild3_ajLz
of
{ (# ipv4_ajLE,
ipv6_ajLF #) ->
(I# ipv4_ajLE,
I# ipv6_ajLF)
};
1# ->
case ># wild3_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKSC
wild3_ajLz
of
{ (# ipv4_ajLK,
ipv6_ajLL #) ->
(I# ipv4_ajLK,
I# ipv6_ajLL)
};
1# ->
case quotRemInt#
(+#
sc1_sKSC
1#)
wild3_ajLz
of
{ (# ipv4_ajLP,
ipv6_ajLQ #) ->
(I#
(-# ipv4_ajLP 1#),
I#
(-#
(+#
ipv6_ajLQ
wild3_ajLz)
1#))
}
}
};
1# ->
case <# wild3_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKSC 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKSC
wild3_ajLz
of
{ (# ipv4_ajLW,
ipv6_ajLX #) ->
(I# ipv4_ajLW,
I# ipv6_ajLX)
};
1# ->
case ># wild3_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKSC
wild3_ajLz
of
{ (# ipv4_ajM2,
ipv6_ajM3 #) ->
(I# ipv4_ajM2,
I# ipv6_ajM3)
};
1# ->
case quotRemInt#
(+#
sc1_sKSC
1#)
wild3_ajLz
of
{ (# ipv4_ajM7,
ipv6_ajM8 #) ->
(I#
(-#
ipv4_ajM7
1#),
I#
(-#
(+#
ipv6_ajM8
wild3_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKSC 1#)
wild3_ajLz
of
{ (# ipv4_ajMc,
ipv6_ajMd #) ->
(I# (-# ipv4_ajMc 1#),
I#
(+#
(+#
ipv6_ajMd
wild3_ajLz)
1#))
}
}
};
-1# ->
case sc1_sKSC of wild4_ajMf {
__DEFAULT ->
case ># wild4_ajMf 0# of {
__DEFAULT ->
case quotRemInt#
wild4_ajMf -1#
of
{ (# ipv4_ajMk,
ipv6_ajMl #) ->
(I# ipv4_ajMk,
I# ipv6_ajMl)
};
1# ->
case quotRemInt#
(-# wild4_ajMf 1#)
-1#
of
{ (# ipv4_ajMu,
ipv6_ajMv #) ->
(I# (-# ipv4_ajMu 1#),
I# ipv6_ajMv)
}
};
-9223372036854775808# ->
lvl153_rOzW
};
0# ->
case divZeroError of wild4_00 { }
})
px1_ajmA
px2_ajmh)
`cast` <Co:5>
of
{ D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_susx (*# sc3_sKSA 8#))
0#
x1_amvw
sc_sKSD
of s2_amvy
{ __DEFAULT ->
case touch# ipv3_susy s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKSE
s'_aj0h
(+# sc1_sKSC 1#)
(+# sc2_sKSB 1#)
(+# sc3_sKSA 1#)
}
}
}
}
};
1# -> (# sc_sKSD, I# sc3_sKSA #)
}; } in
case $s$wfoldlM'_loop_sKSE ipv1_aj4T 0# 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB, Vector dt5_ahQ5 ipv5_susx ipv3_susy #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI ipv_aipC of wild2_00 { }
};
1# -> case lvl193_rOAJ ipv_aipC of wild2_00 { }
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt4_XhUA
{ Vector ipv4_sp24 ipv5_sp25 ipv6_sp26 ->
(VGImage dt_ajl0 dt1_ajl1 dt4_XhUA) `cast` <Co:9>
}
}
}
}
}
}
} } in
case dt_ajl0 of {
__DEFAULT -> jump fail_sjQL void#;
1# ->
case dt1_ajl1 of {
__DEFAULT -> jump fail_sjQL void#;
1# ->
case eta2_B1 `cast` <Co:7> of
{ VGImage dt2_ajmJ dt3_ajmK v2_ajmL ->
case (basicUnsafeIndexM
($dVector2_sjQO `cast` <Co:5>) $fMonadId v1_ajl2 lvl4_rOxf)
`cast` <Co:4>
of px1_ajmN
{ __DEFAULT ->
case basicLength ($dVector1_sjQP `cast` <Co:5>) v2_ajmL of
{ I# ipv_aipC ->
case runRW#
(\ s1_ajCm ->
case <# ipv_aipC 0# of {
__DEFAULT ->
case ># ipv_aipC 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# ipv_aipC 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv1_aj4T, ipv2_aj4U #) ->
let {
ipv5_sutP = byteArrayContents# (ipv2_aj4U `cast` <Co:5>) } in
let { ipv3_sutQ = PlainPtr ipv2_aj4U } in
letrec {
$s$wfoldlM'_loop_sKSP
= \ sc_sKSO sc1_sKSN sc2_sKSM sc3_sKSL ->
case >=# sc2_sKSM ipv_aipC of {
__DEFAULT ->
case basicUnsafeIndexM
($dVector1_sjQP `cast` <Co:5>)
$fMonadBox
v2_ajmL
(I# sc2_sKSM)
of
{ Box x_aisy ->
case x_aisy of px2_ajn2 { __DEFAULT ->
case (eta_B3
(case dt3_ajmK of wild3_ajLz {
__DEFAULT ->
case ># sc1_sKSN 0# of {
__DEFAULT ->
case <# sc1_sKSN 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKSN wild3_ajLz
of
{ (# ipv4_ajLE, ipv6_ajLF #) ->
(I# ipv4_ajLE, I# ipv6_ajLF)
};
1# ->
case ># wild3_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKSN wild3_ajLz
of
{ (# ipv4_ajLK,
ipv6_ajLL #) ->
(I# ipv4_ajLK,
I# ipv6_ajLL)
};
1# ->
case quotRemInt#
(+# sc1_sKSN 1#)
wild3_ajLz
of
{ (# ipv4_ajLP,
ipv6_ajLQ #) ->
(I# (-# ipv4_ajLP 1#),
I#
(-#
(+#
ipv6_ajLQ
wild3_ajLz)
1#))
}
}
};
1# ->
case <# wild3_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKSN 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKSN wild3_ajLz
of
{ (# ipv4_ajLW,
ipv6_ajLX #) ->
(I# ipv4_ajLW,
I# ipv6_ajLX)
};
1# ->
case ># wild3_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKSN
wild3_ajLz
of
{ (# ipv4_ajM2,
ipv6_ajM3 #) ->
(I# ipv4_ajM2,
I# ipv6_ajM3)
};
1# ->
case quotRemInt#
(+# sc1_sKSN 1#)
wild3_ajLz
of
{ (# ipv4_ajM7,
ipv6_ajM8 #) ->
(I# (-# ipv4_ajM7 1#),
I#
(-#
(+#
ipv6_ajM8
wild3_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKSN 1#)
wild3_ajLz
of
{ (# ipv4_ajMc, ipv6_ajMd #) ->
(I# (-# ipv4_ajMc 1#),
I#
(+#
(+# ipv6_ajMd wild3_ajLz)
1#))
}
}
};
-1# ->
case sc1_sKSN of wild4_ajMf {
__DEFAULT ->
case ># wild4_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild4_ajMf -1#
of
{ (# ipv4_ajMk, ipv6_ajMl #) ->
(I# ipv4_ajMk, I# ipv6_ajMl)
};
1# ->
case quotRemInt#
(-# wild4_ajMf 1#) -1#
of
{ (# ipv4_ajMu, ipv6_ajMv #) ->
(I# (-# ipv4_ajMu 1#),
I# ipv6_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild4_00 { }
})
px1_ajmN
px2_ajn2)
`cast` <Co:5>
of
{ D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_sutP (*# sc3_sKSL 8#))
0#
x1_amvw
sc_sKSO
of s2_amvy
{ __DEFAULT ->
case touch# ipv3_sutQ s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKSP
s'_aj0h
(+# sc1_sKSN 1#)
(+# sc2_sKSM 1#)
(+# sc3_sKSL 1#)
}
}
}
}
};
1# -> (# sc_sKSO, I# sc3_sKSL #)
}; } in
case $s$wfoldlM'_loop_sKSP ipv1_aj4T 0# 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB, Vector dt5_ahQ5 ipv5_sutP ipv3_sutQ #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI ipv_aipC of wild2_00 { }
};
1# -> case lvl193_rOAJ ipv_aipC of wild2_00 { }
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt4_XhUA
{ Vector ipv4_sp2A ipv5_sp2B ipv6_sp2C ->
(VGImage dt2_ajmJ dt3_ajmK dt4_XhUA) `cast` <Co:9>
}
}
}
}
}
}
}
}
-- RHS size: {terms: 37, types: 33, coercions: 4, joins: 0/0}
lvl194_rOAK
= \ x_aiCt ipv1_ajk2 ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
x_aiCt
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case ipv1_ajk2 of { I# ww3_Xjhr ->
case $wshowSignedInt 0# ww3_Xjhr w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl61_rOyh)
-- RHS size: {terms: 353, types: 339, coercions: 31, joins: 1/9}
$s$fArrayVScse_$s$fArrayVScse_$ctraverse
= \ @ cs'_ajjD @ e'_ajjE $dArray_ajjF eta_B3 eta1_B2 eta2_B1 ->
case eta_B3 `cast` <Co:7> of { VGImage dt_ajjO dt1_ajjP v1_ajjQ ->
let { m_sjT9 = I# dt_ajjO } in
let { n_sjT8 = I# dt1_ajjP } in
case eta1_B2 (m_sjT9, n_sjT8) of { (ipv_ajk1, ipv1_ajk2) ->
case ipv_ajk1 of { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_ajk2 of wild2_XiTy { I# x1_XiTC ->
case <=# x1_XiTC 0# of {
__DEFAULT ->
case runRW#
(\ s1_ajCm ->
let { n1_ssdp = *# x_aiCt x1_XiTC } in
join {
$j_sxHA x2_aiIf
= case <# x2_aiIf 0# of {
__DEFAULT ->
case ># x2_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x3_aj4J = *# x2_aiIf 8# } in
case <# x3_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x3_aj4J 8# s1_ajCm of
{ (# ipv2_aj4T, ipv3_aj4U #) ->
let {
ipv5_suvH
= byteArrayContents# (ipv3_aj4U `cast` <Co:5>) } in
let { ipv4_suvI = PlainPtr ipv3_aj4U } in
let {
f4_sjT7
= eta2_B1
(indexV
(($p1Array $dArray_ajjF) `cast` <Co:5>)
(m_sjT9, n_sjT8)
v1_ajjQ) } in
letrec {
$s$wfoldlM'_loop_sKRy
= \ sc_sKRx sc1_sKRw sc2_sKRv ->
case <# sc1_sKRw n1_ssdp of {
__DEFAULT -> (# sc_sKRx, I# sc2_sKRv #);
1# ->
case (f4_sjT7
(case x1_XiTC of wild3_ajLz {
__DEFAULT ->
case ># sc1_sKRw 0# of {
__DEFAULT ->
case <# sc1_sKRw 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKRw
wild3_ajLz
of
{ (# ipv6_ajLE,
ipv7_ajLF #) ->
(I# ipv6_ajLE,
I# ipv7_ajLF)
};
1# ->
case ># wild3_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKRw
wild3_ajLz
of
{ (# ipv6_ajLK,
ipv7_ajLL #) ->
(I# ipv6_ajLK,
I# ipv7_ajLL)
};
1# ->
case quotRemInt#
(+#
sc1_sKRw
1#)
wild3_ajLz
of
{ (# ipv6_ajLP,
ipv7_ajLQ #) ->
(I#
(-# ipv6_ajLP 1#),
I#
(-#
(+#
ipv7_ajLQ
wild3_ajLz)
1#))
}
}
};
1# ->
case <# wild3_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKRw 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKRw
wild3_ajLz
of
{ (# ipv6_ajLW,
ipv7_ajLX #) ->
(I# ipv6_ajLW,
I# ipv7_ajLX)
};
1# ->
case ># wild3_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKRw
wild3_ajLz
of
{ (# ipv6_ajM2,
ipv7_ajM3 #) ->
(I# ipv6_ajM2,
I# ipv7_ajM3)
};
1# ->
case quotRemInt#
(+#
sc1_sKRw
1#)
wild3_ajLz
of
{ (# ipv6_ajM7,
ipv7_ajM8 #) ->
(I#
(-#
ipv6_ajM7
1#),
I#
(-#
(+#
ipv7_ajM8
wild3_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKRw 1#)
wild3_ajLz
of
{ (# ipv6_ajMc,
ipv7_ajMd #) ->
(I# (-# ipv6_ajMc 1#),
I#
(+#
(+#
ipv7_ajMd
wild3_ajLz)
1#))
}
}
};
-1# ->
case sc1_sKRw of wild4_ajMf {
__DEFAULT ->
case ># wild4_ajMf 0# of {
__DEFAULT ->
case quotRemInt#
wild4_ajMf -1#
of
{ (# ipv6_ajMk,
ipv7_ajMl #) ->
(I# ipv6_ajMk,
I# ipv7_ajMl)
};
1# ->
case quotRemInt#
(-# wild4_ajMf 1#)
-1#
of
{ (# ipv6_ajMu,
ipv7_ajMv #) ->
(I# (-# ipv6_ajMu 1#),
I# ipv7_ajMv)
}
};
-9223372036854775808# ->
lvl153_rOzW
};
0# ->
case divZeroError of wild4_00 { }
}))
`cast` <Co:5>
of
{ D# x4_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suvH (*# sc2_sKRv 8#))
0#
x4_amvw
sc_sKRx
of s2_amvy
{ __DEFAULT ->
case touch# ipv4_suvI s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKRy
s'_aj0h (+# sc1_sKRw 1#) (+# sc2_sKRv 1#)
}
}
}
}; } in
case $s$wfoldlM'_loop_sKRy ipv2_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt3_ahQ5 ->
(# ipv6_ajAB, Vector dt3_ahQ5 ipv5_suvH ipv4_suvI #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild3_00 { }
};
1# -> case lvl192_rOAI x2_aiIf of wild3_00 { }
};
1# -> case lvl193_rOAJ x2_aiIf of wild3_00 { }
} } in
case <=# n1_ssdp 0# of {
__DEFAULT -> jump $j_sxHA n1_ssdp;
1# -> jump $j_sxHA 0#
})
of
{ (# ipv2_ajCx, ipv3_ajCy #) ->
case ipv3_ajCy of dt2_XhUA
{ Vector ipv4_sp3m ipv5_sp3n ipv6_sp3o ->
(VGImage x_aiCt x1_XiTC dt2_XhUA) `cast` <Co:9>
}
};
1# -> case lvl194_rOAK x_aiCt wild2_XiTy of wild3_00 { }
}
};
1# -> case lvl194_rOAK x_aiCt ipv1_ajk2 of wild2_00 { }
}
}
}
}
-- RHS size: {terms: 376, types: 384, coercions: 43, joins: 1/11}
$s$fArrayVScse_$s$fArrayVScse_$ctraverse2
= \ @ cs1_ajif
@ e1_ajig
@ cs2_ajih
@ e2_ajii
$dArray_ajij
$dArray1_ajik
eta_B4
eta1_B3
eta2_B2
eta3_B1 ->
case eta_B4 `cast` <Co:7> of { VGImage dt_ajiv dt1_ajiw v1_ajix ->
case eta1_B3 `cast` <Co:7> of
{ VGImage dt2_ajiD dt3_ajiE v2_ajiF ->
let { m1_sjUJ = I# dt_ajiv } in
let { n1_sjUI = I# dt1_ajiw } in
let { m2_sjUS = I# dt2_ajiD } in
let { n2_sjUR = I# dt3_ajiE } in
case eta2_B2 (m1_sjUJ, n1_sjUI) (m2_sjUS, n2_sjUR) of
{ (ipv_ajiT, ipv1_ajiU) ->
case ipv_ajiT of { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_ajiU of wild3_XiTO { I# x1_XiTS ->
case <=# x1_XiTS 0# of {
__DEFAULT ->
case runRW#
(\ s1_ajCm ->
let { n_ssfn = *# x_aiCt x1_XiTS } in
join {
$j_sxJz x2_aiIf
= case <# x2_aiIf 0# of {
__DEFAULT ->
case ># x2_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x3_aj4J = *# x2_aiIf 8# } in
case <# x3_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x3_aj4J 8# s1_ajCm of
{ (# ipv2_aj4T, ipv3_aj4U #) ->
let {
ipv5_suxz
= byteArrayContents# (ipv3_aj4U `cast` <Co:5>) } in
let { ipv4_suxA = PlainPtr ipv3_aj4U } in
let {
f4_sjUQ
= eta3_B1
(indexV
(($p1Array $dArray_ajij) `cast` <Co:5>)
(m1_sjUJ, n1_sjUI)
v1_ajix)
(indexV
(($p1Array $dArray1_ajik) `cast` <Co:5>)
(m2_sjUS, n2_sjUR)
v2_ajiF) } in
letrec {
$s$wfoldlM'_loop_sKRp
= \ sc_sKRo sc1_sKRn sc2_sKRm ->
case <# sc1_sKRn n_ssfn of {
__DEFAULT -> (# sc_sKRo, I# sc2_sKRm #);
1# ->
case (f4_sjUQ
(case x1_XiTS of wild4_ajLz {
__DEFAULT ->
case ># sc1_sKRn 0# of {
__DEFAULT ->
case <# sc1_sKRn 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKRn
wild4_ajLz
of
{ (# ipv6_ajLE,
ipv7_ajLF #) ->
(I# ipv6_ajLE,
I# ipv7_ajLF)
};
1# ->
case ># wild4_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKRn
wild4_ajLz
of
{ (# ipv6_ajLK,
ipv7_ajLL #) ->
(I# ipv6_ajLK,
I# ipv7_ajLL)
};
1# ->
case quotRemInt#
(+#
sc1_sKRn
1#)
wild4_ajLz
of
{ (# ipv6_ajLP,
ipv7_ajLQ #) ->
(I#
(-# ipv6_ajLP 1#),
I#
(-#
(+#
ipv7_ajLQ
wild4_ajLz)
1#))
}
}
};
1# ->
case <# wild4_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKRn 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKRn
wild4_ajLz
of
{ (# ipv6_ajLW,
ipv7_ajLX #) ->
(I# ipv6_ajLW,
I# ipv7_ajLX)
};
1# ->
case ># wild4_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKRn
wild4_ajLz
of
{ (# ipv6_ajM2,
ipv7_ajM3 #) ->
(I# ipv6_ajM2,
I# ipv7_ajM3)
};
1# ->
case quotRemInt#
(+#
sc1_sKRn
1#)
wild4_ajLz
of
{ (# ipv6_ajM7,
ipv7_ajM8 #) ->
(I#
(-#
ipv6_ajM7
1#),
I#
(-#
(+#
ipv7_ajM8
wild4_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKRn 1#)
wild4_ajLz
of
{ (# ipv6_ajMc,
ipv7_ajMd #) ->
(I# (-# ipv6_ajMc 1#),
I#
(+#
(+#
ipv7_ajMd
wild4_ajLz)
1#))
}
}
};
-1# ->
case sc1_sKRn of wild5_ajMf {
__DEFAULT ->
case ># wild5_ajMf 0# of {
__DEFAULT ->
case quotRemInt#
wild5_ajMf -1#
of
{ (# ipv6_ajMk,
ipv7_ajMl #) ->
(I# ipv6_ajMk,
I# ipv7_ajMl)
};
1# ->
case quotRemInt#
(-# wild5_ajMf 1#)
-1#
of
{ (# ipv6_ajMu,
ipv7_ajMv #) ->
(I# (-# ipv6_ajMu 1#),
I# ipv7_ajMv)
}
};
-9223372036854775808# ->
lvl153_rOzW
};
0# ->
case divZeroError of wild5_00 { }
}))
`cast` <Co:5>
of
{ D# x4_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suxz (*# sc2_sKRm 8#))
0#
x4_amvw
sc_sKRo
of s2_amvy
{ __DEFAULT ->
case touch# ipv4_suxA s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKRp
s'_aj0h (+# sc1_sKRn 1#) (+# sc2_sKRm 1#)
}
}
}
}; } in
case $s$wfoldlM'_loop_sKRp ipv2_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt5_ahQ5 ->
(# ipv6_ajAB, Vector dt5_ahQ5 ipv5_suxz ipv4_suxA #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild4_00 { }
};
1# -> case lvl192_rOAI x2_aiIf of wild4_00 { }
};
1# -> case lvl193_rOAJ x2_aiIf of wild4_00 { }
} } in
case <=# n_ssfn 0# of {
__DEFAULT -> jump $j_sxJz n_ssfn;
1# -> jump $j_sxJz 0#
})
of
{ (# ipv2_ajCx, ipv3_ajCy #) ->
case ipv3_ajCy of dt4_XhUA
{ Vector ipv4_sp3M ipv5_sp3N ipv6_sp3O ->
(VGImage x_aiCt x1_XiTS dt4_XhUA) `cast` <Co:9>
}
};
1# -> case lvl194_rOAK x_aiCt wild3_XiTO of wild4_00 { }
}
};
1# -> case lvl194_rOAK x_aiCt ipv1_ajiU of wild3_00 { }
}
}
}
}
}
-- RHS size: {terms: 15, types: 29, coercions: 102, joins: 0/0}
$sfromListsVG
= \ w1_ak0U ->
case $wfromListsVG
(lvl179_rOAv `cast` <Co:12>)
(lvl180_rOAw `cast` <Co:22>)
(lvl182_rOAy `cast` <Co:18>)
(lvl186_rOAC `cast` <Co:23>)
(lvl191_rOAH `cast` <Co:27>)
lvl171_rOAn
w1_ak0U
of
{ (# ww24_ak1G, ww25_ak1H, ww26_ak1I #) ->
VGImage ww24_ak1G ww25_ak1H ww26_ak1I
}
-- RHS size: {terms: 56, types: 71, coercions: 38, joins: 1/1}
$s$fArrayVScse_$s$fArrayVScse_$cfold
= \ f_ajbU px0_ajbV ds_ajbW ->
case f_ajbU of f4_ajbY { __DEFAULT ->
case ds_ajbW `cast` <Co:7> of { VGImage dt_ajc3 dt1_ajc4 v1_ajc5 ->
case v1_ajc5 of { Vector dt2_sHw6 dt3_sHw7 dt4_sHw8 ->
case px0_ajbV `cast` <Co:5> of { D# ww1_sDr9 ->
joinrec {
$s$wfoldlM'_loop_sKRj sc_sKRi sc1_sKRh
= case >=# sc_sKRi dt2_sHw6 of {
__DEFAULT ->
case (f4_ajbY
((D# sc1_sKRh) `cast` <Co:7>)
(case readDoubleOffAddr#
(plusAddr# dt3_sHw7 (*# sc_sKRi 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHw8 ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
}))
`cast` <Co:5>
of
{ D# ww3_XDFt ->
jump $s$wfoldlM'_loop_sKRj (+# sc_sKRi 1#) ww3_XDFt
};
1# -> (D# sc1_sKRh) `cast` <Co:7>
}; } in
jump $s$wfoldlM'_loop_sKRj 0# ww1_sDr9
}
}
}
}
-- RHS size: {terms: 233, types: 172, coercions: 38, joins: 1/1}
$s$fArrayVScse_$s$fArrayVScse_$cfoldIx
= \ f_ajbk px0_ajbl ds_ajbm ->
case f_ajbk of f4_ajbo { __DEFAULT ->
case ds_ajbm `cast` <Co:7> of { VGImage dt_ajbs dt1_ajbt v1_ajbu ->
case v1_ajbu of { Vector dt2_sHwb dt3_sHwc dt4_sHwd ->
case px0_ajbl `cast` <Co:5> of { D# ww1_sDrl ->
joinrec {
$s$wfoldlM'_loop_sKRd sc_sKRc sc1_sKRb sc2_sKRa
= case >=# sc1_sKRb dt2_sHwb of {
__DEFAULT ->
case (f4_ajbo
((D# sc2_sKRa) `cast` <Co:7>)
(case dt1_ajbt of wild2_ajLz {
__DEFAULT ->
case ># sc_sKRc 0# of {
__DEFAULT ->
case <# sc_sKRc 0# of {
__DEFAULT ->
case quotRemInt# sc_sKRc wild2_ajLz of
{ (# ipv_ajLE, ipv1_ajLF #) ->
(I# ipv_ajLE, I# ipv1_ajLF)
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt# sc_sKRc wild2_ajLz of
{ (# ipv_ajLK, ipv1_ajLL #) ->
(I# ipv_ajLK, I# ipv1_ajLL)
};
1# ->
case quotRemInt# (+# sc_sKRc 1#) wild2_ajLz of
{ (# ipv_ajLP, ipv1_ajLQ #) ->
(I# (-# ipv_ajLP 1#), I# (-# (+# ipv1_ajLQ wild2_ajLz) 1#))
}
}
};
1# ->
case <# wild2_ajLz 0# of {
__DEFAULT ->
case <# sc_sKRc 0# of {
__DEFAULT ->
case quotRemInt# sc_sKRc wild2_ajLz of
{ (# ipv_ajLW, ipv1_ajLX #) ->
(I# ipv_ajLW, I# ipv1_ajLX)
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt# sc_sKRc wild2_ajLz of
{ (# ipv_ajM2, ipv1_ajM3 #) ->
(I# ipv_ajM2, I# ipv1_ajM3)
};
1# ->
case quotRemInt# (+# sc_sKRc 1#) wild2_ajLz of
{ (# ipv_ajM7, ipv1_ajM8 #) ->
(I# (-# ipv_ajM7 1#),
I# (-# (+# ipv1_ajM8 wild2_ajLz) 1#))
}
}
};
1# ->
case quotRemInt# (-# sc_sKRc 1#) wild2_ajLz of
{ (# ipv_ajMc, ipv1_ajMd #) ->
(I# (-# ipv_ajMc 1#), I# (+# (+# ipv1_ajMd wild2_ajLz) 1#))
}
}
};
-1# ->
case sc_sKRc of wild3_ajMf {
__DEFAULT ->
case ># wild3_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild3_ajMf -1# of
{ (# ipv_ajMk, ipv1_ajMl #) ->
(I# ipv_ajMk, I# ipv1_ajMl)
};
1# ->
case quotRemInt# (-# wild3_ajMf 1#) -1# of
{ (# ipv_ajMu, ipv1_ajMv #) ->
(I# (-# ipv_ajMu 1#), I# ipv1_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild3_00 { }
})
(case readDoubleOffAddr#
(plusAddr# dt3_sHwc (*# sc1_sKRb 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHwd ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
}))
`cast` <Co:5>
of
{ D# ww3_XDFK ->
jump $s$wfoldlM'_loop_sKRd
(+# sc_sKRc 1#) (+# sc1_sKRb 1#) ww3_XDFK
};
1# -> (D# sc2_sKRa) `cast` <Co:7>
}; } in
jump $s$wfoldlM'_loop_sKRd 0# 0# ww1_sDrl
}
}
}
}
-- RHS size: {terms: 38, types: 41, coercions: 0, joins: 0/0}
$wlvl15_rOAL
= \ ww_sDrG ww1_sDrK ww2_sDrO ->
errorVG
lvl67_rOyp
(unpackAppendCString#
lvl154_rOzX
(case $wshowSignedInt 0# ww_sDrG [] of
{ (# ww5_aiI4, ww6_aiI5 #) ->
++_$s++
(unpackAppendCString#
lvl155_rOzY
(case $wshowSignedInt 0# ww1_sDrK [] of
{ (# ww7_XiZ4, ww8_XiZ6 #) ->
++_$s++
(unpackAppendCString#
lvl156_rOzZ
(case $wshowSignedInt 0# ww2_sDrO [] of
{ (# ww10_XiZy, ww11_XiZA #) ->
: ww10_XiZy ww11_XiZA
}))
ww7_XiZ4
ww8_XiZ6
}))
ww5_aiI4
ww6_aiI5
}))
-- RHS size: {terms: 30, types: 29, coercions: 23, joins: 0/0}
$s$fArrayVScse_$s$fArrayVScse_$cfromVector
= \ sz_aj9r eta_B1 ->
case sz_aj9r of { (ipv_aj9v, ipv1_aj9w) ->
case eta_B1 `cast` <Co:5> of v2_aj9y
{ Vector ipv2_aj9A ipv3_aj9B ipv4_aj9C ->
case ipv_aj9v of { I# x1_aj9G ->
case ipv1_aj9w of { I# y_aj9K ->
case ==# (*# x1_aj9G y_aj9K) ipv2_aj9A of {
__DEFAULT -> ($wlvl15_rOAL x1_aj9G y_aj9K ipv2_aj9A) `cast` <Co:9>;
1# -> (VGImage x1_aj9G y_aj9K v2_aj9y) `cast` <Co:9>
}
}
}
}
}
-- RHS size: {terms: 38, types: 50, coercions: 14, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cunsafeIndex
= \ ds_aiea eta_B1 ->
case ds_aiea `cast` <Co:7> of { VGImage dt_aieh dt1_aiei v1_aiej ->
case v1_aiej of { Vector dt2_sHwk dt3_sHwl dt4_sHwm ->
case eta_B1 of { (i_aien, j_aieo) ->
case i_aien of { I# y_aies ->
case j_aieo of { I# y1_aiew ->
case readDoubleOffAddr#
(plusAddr# dt3_sHwl (*# (+# (*# dt1_aiei y_aies) y1_aiew) 8#))
0#
realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHwm ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
}
}
}
}
}
}
-- RHS size: {terms: 52, types: 58, coercions: 14, joins: 1/1}
$s$fArrayVScse_$s$fMArrayVScse_$cfoldl
= \ @ a_aidD f_aidF px0_aidG ds_aidH ->
case f_aidF of f4_aidJ { __DEFAULT ->
case ds_aidH `cast` <Co:7> of { VGImage dt_aidO dt1_aidP v1_aidQ ->
case v1_aidQ of { Vector dt2_sHwp dt3_sHwq dt4_sHwr ->
joinrec {
$s$wfoldlM'_loop_sKR7 sc_sKR6 sc1_sKR5
= case sc1_sKR5 of z2_airY { __DEFAULT ->
case >=# sc_sKR6 dt2_sHwp of {
__DEFAULT ->
jump $s$wfoldlM'_loop_sKR7
(+# sc_sKR6 1#)
(f4_aidJ
z2_airY
(case readDoubleOffAddr#
(plusAddr# dt3_sHwq (*# sc_sKR6 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHwr ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
}));
1# -> z2_airY
}
}; } in
jump $s$wfoldlM'_loop_sKR7 0# px0_aidG
}
}
}
-- RHS size: {terms: 52, types: 59, coercions: 14, joins: 1/2}
$s$fArrayVScse_$s$fMArrayVScse_$cfoldr
= \ @ a_aibC f_aibE px0_aibF ds_aibG ->
case f_aibE of f4_aibI { __DEFAULT ->
case ds_aibG `cast` <Co:7> of { VGImage dt_aidq dt1_aidr v1_aids ->
case v1_aids of { Vector dt2_sHwu dt3_sHwv dt4_sHww ->
joinrec {
$s$wfoldlM'_loop_sKR2 sc_sKR1 sc1_sKR0
= case sc1_sKR0 of z2_airY { __DEFAULT ->
case sc_sKR1 of ds1_aiuu {
__DEFAULT ->
let { i'_aiuv = -# ds1_aiuu 1# } in
jump $s$wfoldlM'_loop_sKR2
i'_aiuv
(f4_aibI
(case readDoubleOffAddr#
(plusAddr# dt3_sHwv (*# i'_aiuv 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHww ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
z2_airY);
0# -> z2_airY
}
}; } in
jump $s$wfoldlM'_loop_sKR2 dt2_sHwu px0_aibF
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl195_rOAN
= "Graphics.Image.Interface.Vector.Generic.makeImageMVG"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl196_rOAO = showLitString (unpackCString# lvl195_rOAN) $fShow[]1
-- RHS size: {terms: 37, types: 33, coercions: 4, joins: 0/0}
lvl197_rOAP
= \ x_aiCt ipv1_aiaz ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
x_aiCt
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case ipv1_aiaz of { I# ww3_XjiR ->
case $wshowSignedInt 0# ww3_XjiR w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl196_rOAO)
-- RHS size: {terms: 451, types: 533, coercions: 10, joins: 0/13}
$s$fArrayVScse_$s$fMArrayVScse_$cmakeImageM
= \ @ m_aiao _ $dMonad_aiaq eta_B2 eta1_B1 ->
case eta_B2 of { (ipv_aiay, ipv1_aiaz) ->
fmap
($p1Applicative ($p1Monad $dMonad_aiaq))
$WVSImage
(case eta1_B1 of f4_aiaB { __DEFAULT ->
case ipv_aiay of { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_aiaz of wild1_XiTE { I# x1_XiTI ->
case <=# x1_XiTI 0# of {
__DEFAULT ->
fmap
($p1Applicative ($p1Monad $dMonad_aiaq))
(\ dt_ahUq ->
case dt_ahUq of dt1_XhUA { Vector ipv2_suCh ipv3_suCi ipv4_suCj ->
VGImage x_aiCt x1_XiTI dt1_XhUA
})
(let { n_ssp3 = *# x_aiCt x1_XiTI } in
let {
s_swFA
= case <=# n_ssp3 0# of {
__DEFAULT -> I# n_ssp3;
1# -> lvl4_rOxf
} } in
>>=
$dMonad_aiaq
(let { lvl205_sHwG = return $dMonad_aiaq [] } in
let { lvl206_sHwD = return $dMonad_aiaq Done } in
letrec {
$sfoldrM_loop_sKQS
= \ sc_sKQQ ->
>>=
$dMonad_aiaq
(case sc_sKQQ of { I# x2_ajGJ ->
case <# x2_ajGJ n_ssp3 of {
__DEFAULT -> lvl206_sHwD;
1# ->
let { lvl208_sIhg = +# x2_ajGJ 1# } in
let { lvl209_sHwF = I# lvl208_sIhg } in
>>=
$dMonad_aiaq
(f4_aiaB
(case x1_XiTI of wild3_ajLz {
__DEFAULT ->
case ># x2_ajGJ 0# of {
__DEFAULT ->
case <# x2_ajGJ 0# of {
__DEFAULT ->
case quotRemInt# x2_ajGJ wild3_ajLz of
{ (# ipv2_ajLE, ipv3_ajLF #) ->
(I# ipv2_ajLE, I# ipv3_ajLF)
};
1# ->
case ># wild3_ajLz 0# of {
__DEFAULT ->
case quotRemInt# x2_ajGJ wild3_ajLz of
{ (# ipv2_ajLK, ipv3_ajLL #) ->
(I# ipv2_ajLK, I# ipv3_ajLL)
};
1# ->
case quotRemInt# lvl208_sIhg wild3_ajLz
of
{ (# ipv2_ajLP, ipv3_ajLQ #) ->
(I# (-# ipv2_ajLP 1#),
I# (-# (+# ipv3_ajLQ wild3_ajLz) 1#))
}
}
};
1# ->
case <# wild3_ajLz 0# of {
__DEFAULT ->
case <# x2_ajGJ 0# of {
__DEFAULT ->
case quotRemInt# x2_ajGJ wild3_ajLz of
{ (# ipv2_ajLW, ipv3_ajLX #) ->
(I# ipv2_ajLW, I# ipv3_ajLX)
};
1# ->
case ># wild3_ajLz 0# of {
__DEFAULT ->
case quotRemInt# x2_ajGJ wild3_ajLz
of
{ (# ipv2_ajM2, ipv3_ajM3 #) ->
(I# ipv2_ajM2, I# ipv3_ajM3)
};
1# ->
case quotRemInt#
lvl208_sIhg wild3_ajLz
of
{ (# ipv2_ajM7, ipv3_ajM8 #) ->
(I# (-# ipv2_ajM7 1#),
I#
(-#
(+# ipv3_ajM8 wild3_ajLz) 1#))
}
}
};
1# ->
case quotRemInt# (-# x2_ajGJ 1#) wild3_ajLz
of
{ (# ipv2_ajMc, ipv3_ajMd #) ->
(I# (-# ipv2_ajMc 1#),
I# (+# (+# ipv3_ajMd wild3_ajLz) 1#))
}
}
};
-1# ->
case x2_ajGJ of wild4_ajMf {
__DEFAULT ->
case ># wild4_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild4_ajMf -1# of
{ (# ipv2_ajMk, ipv3_ajMl #) ->
(I# ipv2_ajMk, I# ipv3_ajMl)
};
1# ->
case quotRemInt# (-# wild4_ajMf 1#) -1# of
{ (# ipv2_ajMu, ipv3_ajMv #) ->
(I# (-# ipv2_ajMu 1#), I# ipv3_ajMv)
}
};
-9223372036854775808# -> lvl153_rOzW
};
0# -> case divZeroError of wild4_00 { }
}))
(\ x3_ajGQ ->
return $dMonad_aiaq (Yield x3_ajGQ lvl209_sHwF))
}
})
lvl207_sHwH;
lvl207_sHwH
= \ r_aiwO ->
case r_aiwO of {
Yield x2_aiwR s'_aiwS ->
>>=
$dMonad_aiaq
($sfoldrM_loop_sKQS s'_aiwS)
(\ b_aiwU -> return $dMonad_aiaq (: x2_aiwR b_aiwU));
Skip s'_aiwW -> $sfoldrM_loop_sKQS s'_aiwW;
Done -> lvl205_sHwG
}; } in
>>=
$dMonad_aiaq
(case <# 0# n_ssp3 of {
__DEFAULT -> lvl206_sHwD;
1# ->
let { lvl208_sHwF = I# 1# } in
>>=
$dMonad_aiaq
(f4_aiaB
(case x1_XiTI of wild2_ajLz {
__DEFAULT ->
case quotRemInt# 0# wild2_ajLz of
{ (# ipv2_ajLE, ipv3_ajLF #) ->
(I# ipv2_ajLE, I# ipv3_ajLF)
};
-1# ->
case quotRemInt# 0# -1# of { (# ipv2_ajMk, ipv3_ajMl #) ->
(I# ipv2_ajMk, I# ipv3_ajMl)
};
0# -> case divZeroError of wild3_00 { }
}))
(\ x2_ajGQ -> return $dMonad_aiaq (Yield x2_ajGQ lvl208_sHwF))
})
lvl207_sHwH)
(\ xs_aix0 ->
return
$dMonad_aiaq
(case runRW#
(\ s1_aixt ->
case s_swFA of { I# x2_aiIf ->
case <# x2_aiIf 0# of {
__DEFAULT ->
case ># x2_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x3_aj4J = *# x2_aiIf 8# } in
case <# x3_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x3_aj4J 8# s1_aixt
of
{ (# ipv2_aj4T, ipv3_aj4U #) ->
let {
ipv5_suDg
= byteArrayContents#
(ipv3_aj4U `cast` <Co:5>) } in
let { ipv4_suDh = PlainPtr ipv3_aj4U } in
letrec {
$s$wfoldlM'_loop_sKQW
= \ sc_sKQV sc1_sKQU sc2_sKQT ->
case sc1_sKQU of {
[] -> (# sc_sKQV, I# sc2_sKQT #);
: x4_aixa xs1_aixb ->
case x4_aixa `cast` <Co:5> of
{ D# x5_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv5_suDg (*# sc2_sKQT 8#))
0#
x5_amvw
sc_sKQV
of s2_amvy
{ __DEFAULT ->
case touch# ipv4_suDh s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKQW
s'_aj0h xs1_aixb (+# sc2_sKQT 1#)
}
}
}
}; } in
case $s$wfoldlM'_loop_sKQW ipv2_aj4T xs_aix0 0# of
{ (# ipv6_aiAx, ipv7_aiAy #) ->
case ipv7_aiAy of { I# dt1_ahQ5 ->
(# ipv6_aiAx,
Vector dt1_ahQ5 ipv5_suDg ipv4_suDh #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2
of wild3_00 {
}
};
1# -> case lvl192_rOAI x2_aiIf of wild3_00 { }
};
1# -> case lvl193_rOAJ x2_aiIf of wild3_00 { }
}
})
of
{ (# ipv2_aiCk, ipv3_aiCl #) ->
ipv3_aiCl
})));
1# -> case lvl197_rOAP x_aiCt wild1_XiTE of wild2_00 { }
}
};
1# -> case lvl197_rOAP x_aiCt ipv1_aiaz of wild1_00 { }
}
}
})
}
-- RHS size: {terms: 284, types: 592, coercions: 29, joins: 0/10}
$s$fArrayVScse_$s$fMArrayVScse_$cmapM
= \ @ cs'_ai9O
@ e'_ai9P
@ m_ai9Q
$dMArray_ai9R
_
$dMonad_ai9T
eta_B2
eta1_B1 ->
fmap
($p1Applicative ($p1Monad $dMonad_ai9T))
$WVSImage
(case eta1_B1 `cast` <Co:7> of
{ VGImage dt_aia5 dt1_aia6 v1_aia7 ->
case v1_aia7 of { Vector dt2_sHxh dt3_sHxi dt4_sHxj ->
fmap
($p1Applicative ($p1Monad $dMonad_ai9T))
(\ dt5_ahUq ->
case dt5_ahUq of dt6_XhUA { Vector ipv_spd6 ipv1_spd7 ipv2_spd8 ->
VGImage dt_aia5 dt1_aia6 dt6_XhUA
})
(let { $dBaseArray1_siDA = $p1MArray $dMArray_ai9R } in
let { irred1_siDz = $p3BaseArray $dBaseArray1_siDA } in
let { $dStorable1_siDy = $p2(%,%) (irred1_siDz `cast` <Co:4>) } in
>>=
$dMonad_ai9T
(let { lvl205_sHxv = return $dMonad_ai9T [] } in
letrec {
$sfoldrM_loop_sKQG
= \ sc_sKQE ->
>>=
$dMonad_ai9T
(>>=
$dMonad_ai9T
(return
$dMonad_ai9T
(case sc_sKQE of wild2_aiIM { I# x_aiIO ->
case >=# x_aiIO dt2_sHxh of {
__DEFAULT ->
Yield
(case ((peekElemOff
$dStorable1_siDy (Ptr dt3_sHxi) wild2_aiIM)
`cast` <Co:4>)
realWorld#
of
{ (# ipv_aig4, ipv1_aig5 #) ->
case touch# dt4_sHxj ipv_aig4 of { __DEFAULT -> ipv1_aig5 }
})
(I# (+# x_aiIO 1#));
1# -> Done
}
}))
(\ r_ajXZ ->
case r_ajXZ of {
Yield x_ajY2 s'_ajY3 ->
>>=
$dMonad_ai9T
(eta_B2 x_ajY2)
(\ x1_ajY5 -> return $dMonad_ai9T (Yield x1_ajY5 s'_ajY3));
Skip s'_ajY7 -> return $dMonad_ai9T (Skip s'_ajY7);
Done -> return $dMonad_ai9T Done
}))
lvl206_sHxw;
lvl206_sHxw
= \ r_aiwO ->
case r_aiwO of {
Yield x1_aiwR s'_aiwS ->
>>=
$dMonad_ai9T
($sfoldrM_loop_sKQG s'_aiwS)
(\ b_aiwU -> return $dMonad_ai9T (: x1_aiwR b_aiwU));
Skip s'_aiwW -> $sfoldrM_loop_sKQG s'_aiwW;
Done -> lvl205_sHxv
}; } in
>>=
$dMonad_ai9T
(>>=
$dMonad_ai9T
(return
$dMonad_ai9T
(case >=# 0# dt2_sHxh of {
__DEFAULT ->
Yield
(case ((peekElemOff $dStorable1_siDy (Ptr dt3_sHxi) (I# 0#))
`cast` <Co:4>)
realWorld#
of
{ (# ipv_aig4, ipv1_aig5 #) ->
case touch# dt4_sHxj ipv_aig4 of { __DEFAULT -> ipv1_aig5 }
})
(I# 1#);
1# -> Done
}))
(\ r_ajXZ ->
case r_ajXZ of {
Yield x_ajY2 s'_ajY3 ->
>>=
$dMonad_ai9T
(eta_B2 x_ajY2)
(\ x1_ajY5 -> return $dMonad_ai9T (Yield x1_ajY5 s'_ajY3));
Skip s'_ajY7 -> return $dMonad_ai9T (Skip s'_ajY7);
Done -> return $dMonad_ai9T Done
}))
lvl206_sHxw)
(\ xs_aix0 ->
return
$dMonad_ai9T
(case runRW#
(\ s1_aixt ->
case <# dt2_sHxh 0# of {
__DEFAULT ->
case ># dt2_sHxh 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# dt2_sHxh 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_aixt of
{ (# ipv_aj4T, ipv1_aj4U #) ->
let {
ipv5_suF0
= byteArrayContents# (ipv1_aj4U `cast` <Co:5>) } in
let { ipv2_suF1 = PlainPtr ipv1_aj4U } in
letrec {
$s$wfoldlM'_loop_sKQK
= \ sc_sKQJ sc1_sKQI sc2_sKQH ->
case sc1_sKQI of {
[] -> (# sc_sKQJ, I# sc2_sKQH #);
: x_aixa xs1_aixb ->
case x_aixa `cast` <Co:5> of { D# x1_amvw ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suF0 (*# sc2_sKQH 8#))
0#
x1_amvw
sc_sKQJ
of s2_amvy
{ __DEFAULT ->
case touch# ipv2_suF1 s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKQK
s'_aj0h xs1_aixb (+# sc2_sKQH 1#)
}
}
}
}; } in
case $s$wfoldlM'_loop_sKQK ipv_aj4T xs_aix0 0# of
{ (# ipv6_aiAx, ipv7_aiAy #) ->
case ipv7_aiAy of { I# dt6_ahQ5 ->
(# ipv6_aiAx, Vector dt6_ahQ5 ipv5_suF0 ipv2_suF1 #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI dt2_sHxh of wild2_00 { }
};
1# -> case lvl193_rOAJ dt2_sHxh of wild2_00 { }
})
of
{ (# ipv_aiCk, ipv2_aiCl #) ->
ipv2_aiCl
})))
}
})
-- RHS size: {terms: 127, types: 203, coercions: 21, joins: 0/5}
$s$fArrayVScse_$s$fMArrayVScse_$cmapM_
= \ @ m_ai9r @ b_ai9s _ $dMonad_ai9u f_ai9w ds_ai9x ->
case ds_ai9x `cast` <Co:7> of { VGImage dt_ai9F dt1_ai9G v1_ai9H ->
case v1_ai9H of { Vector dt2_sHyI dt3_sHyJ dt4_sHyK ->
let { lvl205_sHyN = return $dMonad_ai9u () } in
let { lvl206_sHyL = return $dMonad_ai9u Done } in
let {
lvl207_sHyM
= \ r_astC ->
case r_astC of {
Yield x1_astF s'_astG ->
>>=
$dMonad_ai9u
(f_ai9w x1_astF)
(\ x2_astI -> return $dMonad_ai9u (Yield x2_astI s'_astG));
Skip s'_astK -> return $dMonad_ai9u (Skip s'_astK);
Done -> lvl206_sHyL
} } in
letrec {
$sconsume_loop_sKQB
= \ sc_sKQz ->
>>=
$dMonad_ai9u
(>>=
$dMonad_ai9u
(return
$dMonad_ai9u
(case sc_sKQz of { I# x_aiIO ->
case >=# x_aiIO dt2_sHyI of {
__DEFAULT ->
Yield
(case readDoubleOffAddr#
(plusAddr# dt3_sHyJ (*# x_aiIO 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHyK ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
(I# (+# x_aiIO 1#));
1# -> Done
}
}))
lvl207_sHyM)
lvl208_sHyO;
lvl208_sHyO
= \ r_aiFJ ->
case r_aiFJ of {
Yield ds6_aiFM s'_aiFN -> $sconsume_loop_sKQB s'_aiFN;
Skip s'_aiFQ -> $sconsume_loop_sKQB s'_aiFQ;
Done -> lvl205_sHyN
}; } in
>>=
$dMonad_ai9u
(>>=
$dMonad_ai9u
(return
$dMonad_ai9u
(case >=# 0# dt2_sHyI of {
__DEFAULT ->
Yield
(case readDoubleOffAddr# dt3_sHyJ 0# realWorld# of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHyK ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
(I# 1#);
1# -> Done
}))
lvl207_sHyM)
lvl208_sHyO
}
}
-- RHS size: {terms: 131, types: 171, coercions: 21, joins: 0/3}
$s$fArrayVScse_$s$fMArrayVScse_$cfoldM
= \ @ m_ai97 @ a_ai98 _ $dMonad_ai9a f_ai9c px0_ai9d ds_ai9e ->
case ds_ai9e `cast` <Co:7> of { VGImage dt_ai9i dt1_ai9j v1_ai9k ->
case v1_ai9k of { Vector dt2_sHyS dt3_sHyT dt4_sHyU ->
letrec {
$sfoldlM'_loop_sKQs
= \ sc_sKQp sc1_sKQo ->
case sc1_sKQo of z2_airY { __DEFAULT ->
let { lvl205_sHyV = return $dMonad_ai9a z2_airY } in
>>=
$dMonad_ai9a
(return
$dMonad_ai9a
(case sc_sKQp of { I# x_aiIO ->
case >=# x_aiIO dt2_sHyS of {
__DEFAULT ->
Yield
(case readDoubleOffAddr#
(plusAddr# dt3_sHyT (*# x_aiIO 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHyU ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
(I# (+# x_aiIO 1#));
1# -> Done
}
}))
(\ r_airZ ->
case r_airZ of {
Yield x1_ais2 s'_ais3 ->
>>=
$dMonad_ai9a
(f_ai9c z2_airY x1_ais2)
(\ z'_ais5 -> $sfoldlM'_loop_sKQs s'_ais3 z'_ais5);
Skip s'_ais9 -> $sfoldlM'_loop_sKQs s'_ais9 z2_airY;
Done -> lvl205_sHyV
})
}; } in
case px0_ai9d of z2_airY { __DEFAULT ->
let { lvl205_sHyV = return $dMonad_ai9a z2_airY } in
>>=
$dMonad_ai9a
(return
$dMonad_ai9a
(case >=# 0# dt2_sHyS of {
__DEFAULT ->
Yield
(case readDoubleOffAddr# dt3_sHyT 0# realWorld# of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHyU ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
(I# 1#);
1# -> Done
}))
(\ r_airZ ->
case r_airZ of {
Yield x1_ais2 s'_ais3 ->
>>=
$dMonad_ai9a
(f_ai9c z2_airY x1_ais2)
(\ z'_ais5 -> $sfoldlM'_loop_sKQs s'_ais3 z'_ais5);
Skip s'_ais9 -> $sfoldlM'_loop_sKQs s'_ais9 z2_airY;
Done -> lvl205_sHyV
})
}
}
}
-- RHS size: {terms: 136, types: 176, coercions: 21, joins: 0/3}
$s$fArrayVScse_$s$fMArrayVScse_$cfoldM_
= \ @ m_ai4L @ a_ai4M _ $dMonad_ai4O f_ai4Q px0_ai4R ds_ai4S ->
case px0_ai4R of px1_ai4T { __DEFAULT ->
case ds_ai4S `cast` <Co:7> of { VGImage dt_ai4W dt1_ai4X v1_ai4Y ->
case v1_ai4Y of { Vector dt2_sHyZ dt3_sHz0 dt4_sHz1 ->
>>
$dMonad_ai4O
(letrec {
$sfoldlM'_loop_sKQg
= \ sc_sKQd sc1_sKQc ->
case sc1_sKQc of z2_airY { __DEFAULT ->
let { lvl205_sHz2 = return $dMonad_ai4O z2_airY } in
>>=
$dMonad_ai4O
(return
$dMonad_ai4O
(case sc_sKQd of { I# x_aiIO ->
case >=# x_aiIO dt2_sHyZ of {
__DEFAULT ->
Yield
(case readDoubleOffAddr#
(plusAddr# dt3_sHz0 (*# x_aiIO 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHz1 ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
(I# (+# x_aiIO 1#));
1# -> Done
}
}))
(\ r_airZ ->
case r_airZ of {
Yield x1_ais2 s'_ais3 ->
>>=
$dMonad_ai4O
(f_ai4Q z2_airY x1_ais2)
(\ z'_ais5 -> $sfoldlM'_loop_sKQg s'_ais3 z'_ais5);
Skip s'_ais9 -> $sfoldlM'_loop_sKQg s'_ais9 z2_airY;
Done -> lvl205_sHz2
})
}; } in
let { lvl205_sHz2 = return $dMonad_ai4O px1_ai4T } in
>>=
$dMonad_ai4O
(return
$dMonad_ai4O
(case >=# 0# dt2_sHyZ of {
__DEFAULT ->
Yield
(case readDoubleOffAddr# dt3_sHz0 0# realWorld# of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHz1 ipv_amvL of { __DEFAULT ->
(D# ipv1_amvM) `cast` <Co:7>
}
})
(I# 1#);
1# -> Done
}))
(\ r_airZ ->
case r_airZ of {
Yield x1_ais2 s'_ais3 ->
>>=
$dMonad_ai4O
(f_ai4Q px1_ai4T x1_ais2)
(\ z'_ais5 -> $sfoldlM'_loop_sKQg s'_ais3 z'_ais5);
Skip s'_ais9 -> $sfoldlM'_loop_sKQg s'_ais9 px1_ai4T;
Done -> lvl205_sHz2
}))
(return $dMonad_ai4O ())
}
}
}
-- RHS size: {terms: 109, types: 239, coercions: 98, joins: 0/1}
$s$fArrayVScse_$s$fMArrayVScse_$cthaw
= \ @ m_ahY5 _ $dPrimMonad_ahY7 eta_B1 ->
fmap
($p1Applicative ($p1Monad ($p1PrimMonad $dPrimMonad_ahY7)))
$WMVSImage
(case eta_B1 `cast` <Co:7> of { VGImage dt_ahYw dt1_ahYx v2_ahYy ->
case v2_ahYy of { Vector dt2_sHz6 dt3_sHz7 dt4_sHz8 ->
fmap
($p1Applicative ($p1Monad ($p1PrimMonad $dPrimMonad_ahY7)))
(\ dt5_ahHp -> MVGImage dt_ahYw dt1_ahYx dt5_ahHp)
(case $p1PrimMonad $dPrimMonad_ahY7 of
{ C:Monad ww1_sDsT ww2_sDsU ww3_sDsV ww4_sDsW ->
ww2_sDsU
(case <# dt2_sHz6 0# of {
__DEFAULT ->
case ># dt2_sHz6 1152921504606846975# of {
__DEFAULT ->
(primitive
$dPrimMonad_ahY7
((\ s_aj4x ->
let { x2_aj4J = *# dt2_sHz6 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s_aj4x of
{ (# ipv_aj4T, ipv1_aj4U #) ->
(# ipv_aj4T,
MVector
dt2_sHz6
(byteArrayContents# (ipv1_aj4U `cast` <Co:5>))
(PlainPtr ipv1_aj4U) #)
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
})
`cast` <Co:30>))
`cast` <Co:8>;
1# -> (lvl178_rOAu dt2_sHz6) `cast` <Co:8>
};
1# -> ($wlvl1_rOxz dt2_sHz6) `cast` <Co:8>
})
(\ mv_aiGV ->
ww3_sDsV
(case mv_aiGV `cast` <Co:7> of
{ MVector ipv_sttx ipv1_stty ipv2_sttz ->
primitive
$dPrimMonad_ahY7
((\ s_aify ->
case {__pkg_ccall base-4.13.0.0 Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State# RealWorld, Addr# #)}_aifB
ipv1_stty dt3_sHz7 (int2Word# (*# ipv_sttx 8#)) s_aify
of
{ (# ds4_aifG, ds5_aifH #) ->
case touch# dt4_sHz8 ds4_aifG of s'_aifJ { __DEFAULT ->
case touch# ipv2_sttz s'_aifJ of s'1_aifK { __DEFAULT ->
(# s'1_aifK, () #)
}
}
})
`cast` <Co:25>)
})
(ww4_sDsW mv_aiGV))
})
}
})
-- RHS size: {terms: 92, types: 142, coercions: 10, joins: 0/3}
$wlvl16_rOAQ
= \ w_sDtb ->
case runRW#
(\ s1_ajCm ->
case newAlignedPinnedByteArray# 8# 8# s1_ajCm of
{ (# ipv_aj4T, ipv1_aj4U #) ->
let { ipv5_suHC = byteArrayContents# (ipv1_aj4U `cast` <Co:5>) } in
let { ipv2_suHD = PlainPtr ipv1_aj4U } in
case w_sDtb `cast` <Co:5> of { D# x_amvw ->
case writeDoubleOffAddr# ipv5_suHC 0# x_amvw ipv_aj4T of s2_amvy
{ __DEFAULT ->
case touch# ipv2_suHD s2_amvy of s'_aj0h { __DEFAULT ->
letrec {
$s$wfoldlM'_loop_sKQ5
= \ sc_sKQ4 sc1_sKQ3 sc2_sKQ2 ->
case <# sc1_sKQ3 1# of {
__DEFAULT -> (# sc_sKQ4, I# sc2_sKQ2 #);
1# ->
case writeDoubleOffAddr#
(plusAddr# ipv5_suHC (*# sc2_sKQ2 8#)) 0# x_amvw sc_sKQ4
of s4_XmII
{ __DEFAULT ->
case touch# ipv2_suHD s4_XmII of s'1_Xjdu { __DEFAULT ->
$s$wfoldlM'_loop_sKQ5 s'1_Xjdu (+# sc1_sKQ3 1#) (+# sc2_sKQ2 1#)
}
}
}; } in
case $s$wfoldlM'_loop_sKQ5 s'_aj0h 1# 1# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt1_ahQ5 ->
(# ipv6_ajAB, Vector dt1_ahQ5 ipv5_suHC ipv2_suHD #)
}
}
}
}
}
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt_XhUA { Vector ipv_spfv ipv4_spfw ipv5_spfx ->
(# 1#, 1#, dt_XhUA #)
}
}
-- RHS size: {terms: 9, types: 23, coercions: 9, joins: 0/0}
lvl198_rOAR
= \ w_sDtb ->
case $wlvl16_rOAQ w_sDtb of { (# ww1_sDwg, ww2_sDwh, ww3_sDwi #) ->
(VGImage ww1_sDwg ww2_sDwh ww3_sDwi) `cast` <Co:9>
}
-- RHS size: {terms: 8, types: 19, coercions: 17, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cread
= \ @ m_ahGJ _ $dPrimMonad_ahGL ds_ahGN ->
readVG
$dPrimMonad_ahGL
($s$fArrayVScse_$s$fMVectorMVectora `cast` <Co:6>)
(ds_ahGN `cast` <Co:11>)
-- RHS size: {terms: 8, types: 19, coercions: 17, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cwrite
= \ @ m_ahGv _ $dPrimMonad_ahGx ds_ahGz ->
writeVG
$dPrimMonad_ahGx
($s$fArrayVScse_$s$fMVectorMVectora `cast` <Co:6>)
(ds_ahGz `cast` <Co:11>)
-- RHS size: {terms: 8, types: 19, coercions: 17, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse_$cswap
= \ @ m_ahAx _ $dPrimMonad_ahAz ds_ahE5 ->
swapVG
$dPrimMonad_ahAz
($s$fArrayVScse_$s$fMVectorMVectora `cast` <Co:6>)
(ds_ahE5 `cast` <Co:11>)
-- RHS size: {terms: 18, types: 3, coercions: 0, joins: 0/0}
$s$fArrayVScse_$s$fMArrayVScse
= C:MArray
$s$fArrayVScse_$s$fBaseArrayVScse
$s$fArrayVScse_$s$fMArrayVScse_$cunsafeIndex
$s$fArrayVScse_$s$fMArrayVScse_$cdeepSeqImage
$s$fArrayVScse_$s$fMArrayVScse_$cfoldl
$s$fArrayVScse_$s$fMArrayVScse_$cfoldr
$s$fArrayVScse_$s$fMArrayVScse_$cmakeImageM
$s$fArrayVScse_$s$fMArrayVScse_$cmapM
$s$fArrayVScse_$s$fMArrayVScse_$cmapM_
$s$fArrayVScse_$s$fMArrayVScse_$cfoldM
$s$fArrayVScse_$s$fMArrayVScse_$cfoldM_
$s$fArrayVScse_$s$fMArrayVScse_$cmdims
$s$fArrayVScse_$s$fMArrayVScse_$cthaw
$s$fArrayVScse_$s$fMArrayVScse_$cfreeze
$s$fArrayVScse_$s$fMArrayVScse_$cnew
$s$fArrayVScse_$s$fMArrayVScse_$cread
$s$fArrayVScse_$s$fMArrayVScse_$cwrite
$s$fArrayVScse_$s$fMArrayVScse_$cswap
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl199_rOAS
= "Graphics.Image.Interface.Vector.Generic.makeImageWindowedVG"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl200_rOAT = showLitString (unpackCString# lvl199_rOAS) $fShow[]1
-- RHS size: {terms: 37, types: 33, coercions: 4, joins: 0/0}
lvl201_rOAU
= \ x_XiUc ipv1_ajqT ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
x_XiUc
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case ipv1_ajqT of { I# ww3_XjgW ->
case $wshowSignedInt 0# ww3_XjgW w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl200_rOAT)
-- RHS size: {terms: 488, types: 490, coercions: 39, joins: 15/23}
$s$fArrayVScse_$s$fArrayVScse_$cmakeImageWindowed
= \ sh_ajqL wIx_ajqM wSz_ajqN f_ajqO g_ajqP ->
case sh_ajqL of { (ipv_ajqS, ipv1_ajqT) ->
case wIx_ajqM of { (ipv2_ajqX, ipv3_ajqY) ->
case wSz_ajqN of { (ipv4_ajr6, ipv5_ajr7) ->
case ipv4_ajr6 of { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv5_ajr7 of { I# x1_XiU0 ->
case <=# x1_XiU0 0# of {
__DEFAULT ->
case ipv_ajqS of { I# x2_XiUc ->
case <=# x2_XiUc 0# of {
__DEFAULT ->
case ipv1_ajqT of wild3_XiUh { I# x3_XiUl ->
case <=# x3_XiUl 0# of {
__DEFAULT ->
case runRW#
(\ s1_ajCm ->
case ipv2_ajqX of { I# x4_aiIf ->
join {
$j1_sjHH
= case ipv3_ajqY of { I# ww1_sDbE ->
case $wlvl3_rOxZ
x4_aiIf ww1_sDbE x_aiCt x1_XiU0 x2_XiUc x3_XiUl
of wild5_00 {
}
} } in
case <# x4_aiIf 0# of {
__DEFAULT ->
let { y_aiIS = +# x_aiCt x4_aiIf } in
case >=# x4_aiIf y_aiIS of {
__DEFAULT ->
case ipv3_ajqY of { I# x5_Xj0H ->
case <# x5_Xj0H 0# of {
__DEFAULT ->
let { y1_Xj1u = +# x1_XiU0 x5_Xj0H } in
case >=# x5_Xj0H y1_Xj1u of {
__DEFAULT ->
case ># y_aiIS x2_XiUc of {
__DEFAULT ->
case ># y1_Xj1u x3_XiUl of {
__DEFAULT ->
let { n1_soTh = *# x2_XiUc x3_XiUl } in
case <# n1_soTh 0# of {
__DEFAULT ->
case ># n1_soTh 1152921504606846975#
of {
__DEFAULT ->
let { x6_sjHN = *# n1_soTh 8# } in
case <# x6_sjHN 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray#
x6_sjHN 8# s1_ajCm
of
{ (# ipv8_ajtB, ipv9_ajtC #) ->
let {
ipv10_soTo
= byteArrayContents#
(ipv9_ajtC
`cast` <Co:5>) } in
let {
ipv7_soTp
= PlainPtr ipv9_ajtC } in
join {
$w$j_sDtV w_sDtT
= join {
exit_X7F w1_sDtN
= (# w1_sDtN,
Vector
n1_soTh
ipv10_soTo
ipv7_soTp #) } in
joinrec {
$wgo1_sDtS ww_sDtQ
w1_sDtN
= case <#
ww_sDtQ
y_aiIS
of {
__DEFAULT ->
jump exit_X7F
w1_sDtN;
1# ->
let {
step1_ajvc
= I#
ww_sDtQ } in
join {
$w$j1_sDtE w2_sDtC
= join {
$w$j2_sDtu w3_sDts
= join {
exit1_X7L w4_sDtm
= jump $wgo1_sDtS
(+#
ww_sDtQ
1#)
w4_sDtm } in
joinrec {
$wgo4_sDtr ww1_sDtp
w4_sDtm
= case <#
ww1_sDtp
x3_XiUl
of {
__DEFAULT ->
jump exit1_X7L
w4_sDtm;
1# ->
case (g_ajqP
(step1_ajvc,
I#
ww1_sDtp))
`cast` <Co:5>
of
{ D# x7_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv10_soTo
(*#
(+#
(*#
x3_XiUl
ww_sDtQ)
ww1_sDtp)
8#))
0#
x7_amvw
w4_sDtm
of s2_amvy
{ __DEFAULT ->
case touch#
ipv7_soTp
s2_amvy
of s'_ajx3
{ __DEFAULT ->
jump $wgo4_sDtr
(+#
ww1_sDtp
1#)
s'_ajx3
}
}
}
}; } in
jump $wgo4_sDtr
y1_Xj1u
w3_sDts } in
joinrec {
$wgo3_sDtB ww1_sDtz
w3_sDtw
= case <#
ww1_sDtz
y1_Xj1u
of {
__DEFAULT ->
jump $w$j2_sDtu
w3_sDtw;
1# ->
case (f_ajqO
(step1_ajvc,
I#
ww1_sDtz))
`cast` <Co:5>
of
{ D# x7_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv10_soTo
(*#
(+#
(*#
x3_XiUl
ww_sDtQ)
ww1_sDtz)
8#))
0#
x7_amvw
w3_sDtw
of s2_amvy
{ __DEFAULT ->
case touch#
ipv7_soTp
s2_amvy
of s'_ajwr
{ __DEFAULT ->
jump $wgo3_sDtB
(+#
ww1_sDtz
1#)
s'_ajwr
}
}
}
}; } in
jump $wgo3_sDtB
x5_Xj0H
w2_sDtC } in
joinrec {
$wgo2_sDtL ww1_sDtJ
w2_sDtG
= case <#
ww1_sDtJ
x5_Xj0H
of {
__DEFAULT ->
jump $w$j1_sDtE
w2_sDtG;
1# ->
case (g_ajqP
(step1_ajvc,
I#
ww1_sDtJ))
`cast` <Co:5>
of
{ D# x7_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv10_soTo
(*#
(+#
(*#
x3_XiUl
ww_sDtQ)
ww1_sDtJ)
8#))
0#
x7_amvw
w2_sDtG
of s2_amvy
{ __DEFAULT ->
case touch#
ipv7_soTp
s2_amvy
of s'_ajvP
{ __DEFAULT ->
jump $wgo2_sDtL
(+#
ww1_sDtJ
1#)
s'_ajvP
}
}
}
}; } in
jump $wgo2_sDtL
0# w1_sDtN
}; } in
jump $wgo1_sDtS
x4_aiIf w_sDtT } in
joinrec {
$wgo_sDuj ww_sDuh w_sDue
= case <# ww_sDuh x3_XiUl
of {
__DEFAULT ->
jump $w$j_sDtV w_sDue;
1# ->
let {
step1_ajtG
= I# ww_sDuh } in
join {
$w$j1_sDu5 w1_sDu3
= join {
exit_X7K w2_sDtX
= jump $wgo_sDuj
(+#
ww_sDuh
1#)
w2_sDtX } in
joinrec {
$wgo2_sDu2 ww1_sDu0
w2_sDtX
= case <#
ww1_sDu0
x2_XiUc
of {
__DEFAULT ->
jump exit_X7K
w2_sDtX;
1# ->
case (g_ajqP
(I#
ww1_sDu0,
step1_ajtG))
`cast` <Co:5>
of
{ D# x7_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv10_soTo
(*#
(+#
(*#
x3_XiUl
ww1_sDu0)
ww_sDuh)
8#))
0#
x7_amvw
w2_sDtX
of s2_amvy
{ __DEFAULT ->
case touch#
ipv7_soTp
s2_amvy
of s'_ajuV
{ __DEFAULT ->
jump $wgo2_sDu2
(+#
ww1_sDu0
1#)
s'_ajuV
}
}
}
}; } in
jump $wgo2_sDu2
y_aiIS
w1_sDu3 } in
joinrec {
$wgo1_sDuc ww1_sDua
w1_sDu7
= case <#
ww1_sDua
x4_aiIf
of {
__DEFAULT ->
jump $w$j1_sDu5
w1_sDu7;
1# ->
case (g_ajqP
(I#
ww1_sDua,
step1_ajtG))
`cast` <Co:5>
of
{ D# x7_amvw ->
case writeDoubleOffAddr#
(plusAddr#
ipv10_soTo
(*#
(+#
(*#
x3_XiUl
ww1_sDua)
ww_sDuh)
8#))
0#
x7_amvw
w1_sDu7
of s2_amvy
{ __DEFAULT ->
case touch#
ipv7_soTp
s2_amvy
of s'_ajuj
{ __DEFAULT ->
jump $wgo1_sDuc
(+#
ww1_sDua
1#)
s'_ajuj
}
}
}
}; } in
jump $wgo1_sDuc
0# w_sDue
}; } in
jump $wgo_sDuj 0# ipv8_ajtB
};
1# ->
case mallocPlainForeignPtrAlignedBytes2
of wild6_00 {
}
};
1# ->
case $wlvl4_rOy1 n1_soTh
of wild6_00 {
}
};
1# ->
case $wlvl5_rOy2 n1_soTh of wild6_00 { }
};
1# -> jump $j1_sjHH
};
1# -> jump $j1_sjHH
};
1# -> jump $j1_sjHH
};
1# -> jump $j1_sjHH
}
};
1# -> jump $j1_sjHH
};
1# -> jump $j1_sjHH
}
})
of
{ (# ipv7_ajCx, ipv8_ajCy #) ->
case ipv8_ajCy of dt_XhUA
{ Vector ipv9_soU7 ipv10_soU8 ipv11_soU9 ->
(VGImage x2_XiUc x3_XiUl dt_XhUA) `cast` <Co:9>
}
};
1# -> case lvl201_rOAU x2_XiUc wild3_XiUh of wild4_00 { }
}
};
1# -> case lvl201_rOAU x2_XiUc ipv1_ajqT of wild3_00 { }
}
};
1# -> case $wlvl2_rOxJ x_aiCt x1_XiU0 of wild2_00 { }
}
};
1# ->
case ipv5_ajr7 of { I# ww1_sDbo ->
case $wlvl2_rOxJ x_aiCt ww1_sDbo of wild1_00 { }
}
}
}
}
}
}
-- RHS size: {terms: 825, types: 709, coercions: 21, joins: 3/10}
$s$fArrayVScse_$s$fArrayVScse_$ctranspose
= \ ds_ajhp ->
case ds_ajhp `cast` <Co:7> of { VGImage dt_ajht dt1_ajhu v1_ajhv ->
case v1_ajhv of { Vector dt2_sHzX dt3_sHzY dt4_sHzZ ->
case runRW#
(\ s1_ajCm ->
let { n_stxV = *# dt_ajht dt1_ajhu } in
join {
$j_sxYU x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv_aj4T, ipv1_aj4U #) ->
let {
ipv5_suMq = byteArrayContents# (ipv1_aj4U `cast` <Co:5>) } in
let { ipv2_suMr = PlainPtr ipv1_aj4U } in
letrec {
foldlM'_loop_suMN
= \ w_sDuk w1_sDul w2_sDum w3_sDun ->
case w1_sDul of { I# ww1_sDuq ->
case w2_sDum of { I# ww3_sDuu ->
$wfoldlM'_loop_sDuw w_sDuk ww1_sDuq ww3_sDuu w3_sDun
}
};
$wfoldlM'_loop_sDuw
= \ w_sDuk ww_sDuq ww1_sDuu w1_sDun ->
case w_sDuk of { __DEFAULT ->
case <# ww1_sDuu n_stxV of {
__DEFAULT -> (# w1_sDun, I# ww_sDuq #);
1# ->
join {
$j1_syTL x1_amvw
= case writeDoubleOffAddr#
(plusAddr# ipv5_suMq (*# ww_sDuq 8#))
0#
x1_amvw
w1_sDun
of s2_amvy
{ __DEFAULT ->
case touch# ipv2_suMr s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKPe
s'_aj0h (+# ww1_sDuu 1#) (+# ww_sDuq 1#)
}
} } in
case dt_ajht of wild2_ajLz {
__DEFAULT ->
case ># ww1_sDuu 0# of {
__DEFAULT ->
case <# ww1_sDuu 0# of {
__DEFAULT ->
case quotRemInt# ww1_sDuu wild2_ajLz of
{ (# ipv3_ajLE, ipv4_ajLF #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*# dt1_ajhu ipv4_ajLF)
ipv3_ajLE)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ww1_sDuu wild2_ajLz
of
{ (# ipv3_ajLK, ipv4_ajLL #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*#
dt1_ajhu ipv4_ajLL)
ipv3_ajLK)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# ww1_sDuu 1#) wild2_ajLz
of
{ (# ipv3_ajLP, ipv4_ajLQ #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*#
dt1_ajhu
(-#
(+#
ipv4_ajLQ
wild2_ajLz)
1#))
ipv3_ajLP))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
}
};
1# ->
case <# wild2_ajLz 0# of {
__DEFAULT ->
case <# ww1_sDuu 0# of {
__DEFAULT ->
case quotRemInt# ww1_sDuu wild2_ajLz
of
{ (# ipv3_ajLW, ipv4_ajLX #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*#
dt1_ajhu ipv4_ajLX)
ipv3_ajLW)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
ww1_sDuu wild2_ajLz
of
{ (# ipv3_ajM2, ipv4_ajM3 #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*#
dt1_ajhu
ipv4_ajM3)
ipv3_ajM2)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# ww1_sDuu 1#) wild2_ajLz
of
{ (# ipv3_ajM7, ipv4_ajM8 #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*#
dt1_ajhu
(-#
(+#
ipv4_ajM8
wild2_ajLz)
1#))
ipv3_ajM7))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
}
};
1# ->
case quotRemInt#
(-# ww1_sDuu 1#) wild2_ajLz
of
{ (# ipv3_ajMc, ipv4_ajMd #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*#
dt1_ajhu
(+#
(+#
ipv4_ajMd
wild2_ajLz)
1#))
ipv3_ajMc))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
}
};
-1# ->
case ww1_sDuu of wild3_ajMf {
__DEFAULT ->
case ># wild3_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild3_ajMf -1# of
{ (# ipv3_ajMk, ipv4_ajMl #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*# dt1_ajhu ipv4_ajMl)
ipv3_ajMk)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case quotRemInt# (-# wild3_ajMf 1#) -1# of
{ (# ipv3_ajMu, ipv4_ajMv #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*# dt1_ajhu ipv4_ajMv)
ipv3_ajMu))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
};
-9223372036854775808# ->
case overflowError of wild4_00 { }
};
0# -> case divZeroError of wild3_00 { }
}
}
};
$s$wfoldlM'_loop_sKPe
= \ sc_sKPd sc1_sKPc sc2_sKPb ->
case <# sc1_sKPc n_stxV of {
__DEFAULT -> (# sc_sKPd, I# sc2_sKPb #);
1# ->
join {
$j1_syTL x1_amvw
= case writeDoubleOffAddr#
(plusAddr# ipv5_suMq (*# sc2_sKPb 8#))
0#
x1_amvw
sc_sKPd
of s2_amvy
{ __DEFAULT ->
case touch# ipv2_suMr s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKPe
s'_aj0h (+# sc1_sKPc 1#) (+# sc2_sKPb 1#)
}
} } in
case dt_ajht of wild2_ajLz {
__DEFAULT ->
case ># sc1_sKPc 0# of {
__DEFAULT ->
case <# sc1_sKPc 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKPc wild2_ajLz of
{ (# ipv3_ajLE, ipv4_ajLF #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*# dt1_ajhu ipv4_ajLF)
ipv3_ajLE)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKPc wild2_ajLz
of
{ (# ipv3_ajLK, ipv4_ajLL #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*#
dt1_ajhu ipv4_ajLL)
ipv3_ajLK)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# sc1_sKPc 1#) wild2_ajLz
of
{ (# ipv3_ajLP, ipv4_ajLQ #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*#
dt1_ajhu
(-#
(+#
ipv4_ajLQ
wild2_ajLz)
1#))
ipv3_ajLP))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
}
};
1# ->
case <# wild2_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKPc 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKPc wild2_ajLz
of
{ (# ipv3_ajLW, ipv4_ajLX #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*#
dt1_ajhu ipv4_ajLX)
ipv3_ajLW)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case ># wild2_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKPc wild2_ajLz
of
{ (# ipv3_ajM2, ipv4_ajM3 #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*#
dt1_ajhu
ipv4_ajM3)
ipv3_ajM2)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# sc1_sKPc 1#) wild2_ajLz
of
{ (# ipv3_ajM7, ipv4_ajM8 #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*#
dt1_ajhu
(-#
(+#
ipv4_ajM8
wild2_ajLz)
1#))
ipv3_ajM7))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKPc 1#) wild2_ajLz
of
{ (# ipv3_ajMc, ipv4_ajMd #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*#
dt1_ajhu
(+#
(+#
ipv4_ajMd
wild2_ajLz)
1#))
ipv3_ajMc))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
}
};
-1# ->
case sc1_sKPc of wild3_ajMf {
__DEFAULT ->
case ># wild3_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild3_ajMf -1# of
{ (# ipv3_ajMk, ipv4_ajMl #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(*#
(+#
(*# dt1_ajhu ipv4_ajMl)
ipv3_ajMk)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
};
1# ->
case quotRemInt# (-# wild3_ajMf 1#) -1# of
{ (# ipv3_ajMu, ipv4_ajMv #) ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHzY
(-#
(*#
8#
(+#
(*# dt1_ajhu ipv4_ajMv)
ipv3_ajMu))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt4_sHzZ ipv6_amvL of
{ __DEFAULT ->
jump $j1_syTL ipv7_amvM
}
}
}
};
-9223372036854775808# ->
case overflowError of wild4_00 { }
};
0# -> case divZeroError of wild3_00 { }
}
}; } in
case $s$wfoldlM'_loop_sKPe ipv_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt8_ahQ5 ->
(# ipv6_ajAB, Vector dt8_ahQ5 ipv5_suMq ipv2_suMr #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild2_00 { }
};
1# -> case lvl192_rOAI x_aiIf of wild2_00 { }
};
1# -> case lvl193_rOAJ x_aiIf of wild2_00 { }
} } in
case <=# n_stxV 0# of {
__DEFAULT -> jump $j_sxYU n_stxV;
1# -> jump $j_sxYU 0#
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of dt7_XhUA { Vector ipv_sp5a ipv4_sp5b ipv5_sp5c ->
(VGImage dt1_ajhu dt_ajht dt7_XhUA) `cast` <Co:9>
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl202_rOAV
= "Graphics.Image.Interface.Vector.Generic.backpermuteWithCheckVG"#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl203_rOAW = showLitString (unpackCString# lvl202_rOAV) $fShow[]1
-- RHS size: {terms: 37, types: 33, coercions: 4, joins: 0/0}
lvl204_rOAX
= \ x_aiCt ipv1_ajfi ->
error
(checkDims1 `cast` <Co:4>)
(++_$s++
(unpackAppendCString#
lvl29_rOxF
(: $fShow(,)4
(case $wshowSignedInt
0#
x_aiCt
(: showList__1
($fShow(,)_$sgo1
lvl30_rOxG
(\ w2_aiHS ->
case ipv1_ajfi of { I# ww3_XjhI ->
case $wshowSignedInt 0# ww3_XjhI w2_aiHS of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
}
})
[]))
of
{ (# ww5_aiI4, ww6_aiI5 #) ->
: ww5_aiI4 ww6_aiI5
})))
$fShow(,)3
lvl203_rOAW)
-- RHS size: {terms: 408, types: 353, coercions: 21, joins: 1/6}
$s$fArrayVScse_$s$fArrayVScse_$cbackpermute
= \ sz_ajfc f_ajfd ds_ajfe ->
case sz_ajfc of { (ipv_ajfh, ipv1_ajfi) ->
case ds_ajfe `cast` <Co:7> of { VGImage dt_ajfr dt1_ajfs v1_ajft ->
case v1_ajft of { Vector dt2_sHAy dt3_sHAz dt4_sHAA ->
case ipv_ajfh of { I# x_aiCt ->
case <=# x_aiCt 0# of {
__DEFAULT ->
case ipv1_ajfi of wild3_XiU1 { I# x1_XiU5 ->
case <=# x1_XiU5 0# of {
__DEFAULT ->
case runRW#
(\ s1_ajCm ->
let { n_stAI = *# x_aiCt x1_XiU5 } in
join {
$j_sy0H x2_aiIf
= case <# x2_aiIf 0# of {
__DEFAULT ->
case ># x2_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x3_aj4J = *# x2_aiIf 8# } in
case <# x3_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x3_aj4J 8# s1_ajCm of
{ (# ipv2_aj4T, ipv3_aj4U #) ->
let {
ipv5_suOf
= byteArrayContents# (ipv3_aj4U `cast` <Co:5>) } in
let { ipv4_suOg = PlainPtr ipv3_aj4U } in
letrec {
$s$wfoldlM'_loop_sKOW
= \ sc_sKOV sc1_sKOU sc2_sKOT ->
case <# sc1_sKOU n_stAI of {
__DEFAULT -> (# sc_sKOV, I# sc2_sKOT #);
1# ->
case f_ajfd
(case x1_XiU5 of wild4_ajLz {
__DEFAULT ->
case ># sc1_sKOU 0# of {
__DEFAULT ->
case <# sc1_sKOU 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOU wild4_ajLz
of
{ (# ipv6_ajLE,
ipv7_ajLF #) ->
(I# ipv6_ajLE,
I# ipv7_ajLF)
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOU
wild4_ajLz
of
{ (# ipv6_ajLK,
ipv7_ajLL #) ->
(I# ipv6_ajLK,
I# ipv7_ajLL)
};
1# ->
case quotRemInt#
(+#
sc1_sKOU 1#)
wild4_ajLz
of
{ (# ipv6_ajLP,
ipv7_ajLQ #) ->
(I# (-# ipv6_ajLP 1#),
I#
(-#
(+#
ipv7_ajLQ
wild4_ajLz)
1#))
}
}
};
1# ->
case <# wild4_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKOU 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOU
wild4_ajLz
of
{ (# ipv6_ajLW,
ipv7_ajLX #) ->
(I# ipv6_ajLW,
I# ipv7_ajLX)
};
1# ->
case ># wild4_ajLz 0#
of {
__DEFAULT ->
case quotRemInt#
sc1_sKOU
wild4_ajLz
of
{ (# ipv6_ajM2,
ipv7_ajM3 #) ->
(I# ipv6_ajM2,
I# ipv7_ajM3)
};
1# ->
case quotRemInt#
(+#
sc1_sKOU
1#)
wild4_ajLz
of
{ (# ipv6_ajM7,
ipv7_ajM8 #) ->
(I#
(-#
ipv6_ajM7
1#),
I#
(-#
(+#
ipv7_ajM8
wild4_ajLz)
1#))
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKOU 1#)
wild4_ajLz
of
{ (# ipv6_ajMc,
ipv7_ajMd #) ->
(I# (-# ipv6_ajMc 1#),
I#
(+#
(+#
ipv7_ajMd
wild4_ajLz)
1#))
}
}
};
-1# ->
case sc1_sKOU of wild5_ajMf {
__DEFAULT ->
case ># wild5_ajMf 0# of {
__DEFAULT ->
case quotRemInt#
wild5_ajMf -1#
of
{ (# ipv6_ajMk,
ipv7_ajMl #) ->
(I# ipv6_ajMk,
I# ipv7_ajMl)
};
1# ->
case quotRemInt#
(-# wild5_ajMf 1#)
-1#
of
{ (# ipv6_ajMu,
ipv7_ajMv #) ->
(I# (-# ipv6_ajMu 1#),
I# ipv7_ajMv)
}
};
-9223372036854775808# ->
lvl153_rOzW
};
0# ->
case divZeroError of wild5_00 { }
})
of
{ (ipv6_ajgs, ipv7_ajgt) ->
case ipv7_ajgt of { I# x4_aiIO ->
case ipv6_ajgs of { I# x5_Xj1m ->
case <# x5_Xj1m 0# of {
__DEFAULT ->
case >=# x4_aiIO dt1_ajfs of {
__DEFAULT ->
case >=# x5_Xj1m dt_ajfr of {
__DEFAULT ->
case <# x4_aiIO 0# of {
__DEFAULT ->
case readDoubleOffAddr#
(plusAddr#
dt3_sHAz
(*#
(+#
(*#
dt1_ajfs
x5_Xj1m)
x4_aiIO)
8#))
0#
realWorld#
of
{ (# ipv8_amvL,
ipv9_amvM #) ->
case touch# dt4_sHAA ipv8_amvL
of
{ __DEFAULT ->
case writeDoubleOffAddr#
(plusAddr#
ipv5_suOf
(*# sc2_sKOT 8#))
0#
ipv9_amvM
sc_sKOV
of s2_amvy
{ __DEFAULT ->
case touch# ipv4_suOg s2_amvy
of s'1_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKOW
s'1_aj0h
(+# sc1_sKOU 1#)
(+# sc2_sKOT 1#)
}
}
}
};
1# ->
case $wlvl6_rOyc
x5_Xj1m
x4_aiIO
dt_ajfr
dt1_ajfs
of wild6_00 {
}
};
1# ->
case $wlvl6_rOyc
x5_Xj1m
x4_aiIO
dt_ajfr
dt1_ajfs
of wild6_00 {
}
};
1# ->
case $wlvl6_rOyc
x5_Xj1m
x4_aiIO
dt_ajfr
dt1_ajfs
of wild6_00 {
}
};
1# ->
case $wlvl6_rOyc
x5_Xj1m x4_aiIO dt_ajfr dt1_ajfs
of wild6_00 {
}
}
}
}
}
}; } in
case $s$wfoldlM'_loop_sKOW ipv2_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt8_ahQ5 ->
(# ipv6_ajAB, Vector dt8_ahQ5 ipv5_suOf ipv4_suOg #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild4_00 { }
};
1# -> case lvl192_rOAI x2_aiIf of wild4_00 { }
};
1# -> case lvl193_rOAJ x2_aiIf of wild4_00 { }
} } in
case <=# n_stAI 0# of {
__DEFAULT -> jump $j_sy0H n_stAI;
1# -> jump $j_sy0H 0#
})
of
{ (# ipv2_ajCx, ipv3_ajCy #) ->
case ipv3_ajCy of dt7_XhUA
{ Vector ipv4_sp5U ipv5_sp5V ipv6_sp5W ->
(VGImage x_aiCt x1_XiU5 dt7_XhUA) `cast` <Co:9>
}
};
1# -> case lvl204_rOAX x_aiCt wild3_XiU1 of wild4_00 { }
}
};
1# -> case lvl204_rOAX x_aiCt ipv1_ajfi of wild3_00 { }
}
}
}
}
}
-- RHS size: {terms: 1,311,
types: 1,107,
coercions: 54,
joins: 8/24}
$s$fArrayVScse_$s$fArrayVScse_$c|*|
= \ ds_ajcg ds1_ajch ->
case ds_ajcg `cast` <Co:7> of { VGImage dt_ajcl dt1_ajcm v1_ajcn ->
case v1_ajcn of { Vector dt2_sHBQ dt3_sHBR dt4_sHBS ->
case ds1_ajch `cast` <Co:7> of
{ VGImage dt5_ajct dt6_ajcu v2_ajcv ->
case v2_ajcv of { Vector dt7_sHBf dt8_sHBg dt9_sHBh ->
case runRW#
(\ s1_ajCm ->
let { n_stD2 = *# dt5_ajct dt6_ajcu } in
join {
$j_sy56 x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_ajCm of
{ (# ipv_aj4T, ipv1_aj4U #) ->
let {
ipv5_suQZ = byteArrayContents# (ipv1_aj4U `cast` <Co:5>) } in
let { ipv2_suR0 = PlainPtr ipv1_aj4U } in
letrec {
foldlM'_loop_suRm
= \ w_sDuM w1_sDuN w2_sDuO w3_sDuP ->
case w1_sDuN of { I# ww1_sDuS ->
case w2_sDuO of { I# ww3_sDuW ->
$wfoldlM'_loop_sDuY w_sDuM ww1_sDuS ww3_sDuW w3_sDuP
}
};
$wfoldlM'_loop_sDuY
= \ w_sDuM ww_sDuS ww1_sDuW w1_sDuP ->
case w_sDuM of { __DEFAULT ->
case <# ww1_sDuW n_stD2 of {
__DEFAULT -> (# w1_sDuP, I# ww_sDuS #);
1# ->
join {
$j1_syWp x1_amvw
= case writeDoubleOffAddr#
(plusAddr# ipv5_suQZ (*# ww_sDuS 8#))
0#
x1_amvw
w1_sDuP
of s2_amvy
{ __DEFAULT ->
case touch# ipv2_suR0 s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKNt
s'_aj0h (+# ww1_sDuW 1#) (+# ww_sDuS 1#)
}
} } in
case dt5_ajct of wild4_ajLz {
__DEFAULT ->
case ># ww1_sDuW 0# of {
__DEFAULT ->
case <# ww1_sDuW 0# of {
__DEFAULT ->
case quotRemInt# ww1_sDuW wild4_ajLz of
{ (# ipv3_ajLE, ipv4_ajLF #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*# dt6_ajcu ipv4_ajLF)
ipv3_ajLE)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt# ww1_sDuW wild4_ajLz
of
{ (# ipv3_ajLK, ipv4_ajLL #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*#
dt6_ajcu ipv4_ajLL)
ipv3_ajLK)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# ww1_sDuW 1#) wild4_ajLz
of
{ (# ipv3_ajLP, ipv4_ajLQ #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*#
dt6_ajcu
(-#
(+#
ipv4_ajLQ
wild4_ajLz)
1#))
ipv3_ajLP))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
}
};
1# ->
case <# wild4_ajLz 0# of {
__DEFAULT ->
case <# ww1_sDuW 0# of {
__DEFAULT ->
case quotRemInt# ww1_sDuW wild4_ajLz
of
{ (# ipv3_ajLW, ipv4_ajLX #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*#
dt6_ajcu ipv4_ajLX)
ipv3_ajLW)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
ww1_sDuW wild4_ajLz
of
{ (# ipv3_ajM2, ipv4_ajM3 #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*#
dt6_ajcu
ipv4_ajM3)
ipv3_ajM2)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# ww1_sDuW 1#) wild4_ajLz
of
{ (# ipv3_ajM7, ipv4_ajM8 #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*#
dt6_ajcu
(-#
(+#
ipv4_ajM8
wild4_ajLz)
1#))
ipv3_ajM7))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
}
};
1# ->
case quotRemInt#
(-# ww1_sDuW 1#) wild4_ajLz
of
{ (# ipv3_ajMc, ipv4_ajMd #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*#
dt6_ajcu
(+#
(+#
ipv4_ajMd
wild4_ajLz)
1#))
ipv3_ajMc))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
}
};
-1# ->
case ww1_sDuW of wild5_ajMf {
__DEFAULT ->
case ># wild5_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild5_ajMf -1# of
{ (# ipv3_ajMk, ipv4_ajMl #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*# dt6_ajcu ipv4_ajMl)
ipv3_ajMk)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case quotRemInt# (-# wild5_ajMf 1#) -1# of
{ (# ipv3_ajMu, ipv4_ajMv #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*# dt6_ajcu ipv4_ajMv)
ipv3_ajMu))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
};
-9223372036854775808# ->
case overflowError of wild6_00 { }
};
0# -> case divZeroError of wild5_00 { }
}
}
};
$s$wfoldlM'_loop_sKNt
= \ sc_sKNs sc1_sKNr sc2_sKNq ->
case <# sc1_sKNr n_stD2 of {
__DEFAULT -> (# sc_sKNs, I# sc2_sKNq #);
1# ->
join {
$j1_syWp x1_amvw
= case writeDoubleOffAddr#
(plusAddr# ipv5_suQZ (*# sc2_sKNq 8#))
0#
x1_amvw
sc_sKNs
of s2_amvy
{ __DEFAULT ->
case touch# ipv2_suR0 s2_amvy of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKNt
s'_aj0h (+# sc1_sKNr 1#) (+# sc2_sKNq 1#)
}
} } in
case dt5_ajct of wild4_ajLz {
__DEFAULT ->
case ># sc1_sKNr 0# of {
__DEFAULT ->
case <# sc1_sKNr 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKNr wild4_ajLz of
{ (# ipv3_ajLE, ipv4_ajLF #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*# dt6_ajcu ipv4_ajLF)
ipv3_ajLE)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKNr wild4_ajLz
of
{ (# ipv3_ajLK, ipv4_ajLL #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*#
dt6_ajcu ipv4_ajLL)
ipv3_ajLK)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# sc1_sKNr 1#) wild4_ajLz
of
{ (# ipv3_ajLP, ipv4_ajLQ #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*#
dt6_ajcu
(-#
(+#
ipv4_ajLQ
wild4_ajLz)
1#))
ipv3_ajLP))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
}
};
1# ->
case <# wild4_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKNr 0# of {
__DEFAULT ->
case quotRemInt# sc1_sKNr wild4_ajLz
of
{ (# ipv3_ajLW, ipv4_ajLX #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*#
dt6_ajcu ipv4_ajLX)
ipv3_ajLW)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKNr wild4_ajLz
of
{ (# ipv3_ajM2, ipv4_ajM3 #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*#
dt6_ajcu
ipv4_ajM3)
ipv3_ajM2)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case quotRemInt#
(+# sc1_sKNr 1#) wild4_ajLz
of
{ (# ipv3_ajM7, ipv4_ajM8 #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*#
dt6_ajcu
(-#
(+#
ipv4_ajM8
wild4_ajLz)
1#))
ipv3_ajM7))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKNr 1#) wild4_ajLz
of
{ (# ipv3_ajMc, ipv4_ajMd #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*#
dt6_ajcu
(+#
(+#
ipv4_ajMd
wild4_ajLz)
1#))
ipv3_ajMc))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
}
};
-1# ->
case sc1_sKNr of wild5_ajMf {
__DEFAULT ->
case ># wild5_ajMf 0# of {
__DEFAULT ->
case quotRemInt# wild5_ajMf -1# of
{ (# ipv3_ajMk, ipv4_ajMl #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(*#
(+#
(*# dt6_ajcu ipv4_ajMl)
ipv3_ajMk)
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
};
1# ->
case quotRemInt# (-# wild5_ajMf 1#) -1# of
{ (# ipv3_ajMu, ipv4_ajMv #) ->
case readDoubleOffAddr#
(plusAddr#
dt8_sHBg
(-#
(*#
8#
(+#
(*# dt6_ajcu ipv4_ajMv)
ipv3_ajMu))
8#))
0#
realWorld#
of
{ (# ipv6_amvL, ipv7_amvM #) ->
case touch# dt9_sHBh ipv6_amvL of
{ __DEFAULT ->
jump $j1_syWp ipv7_amvM
}
}
}
};
-9223372036854775808# ->
case overflowError of wild6_00 { }
};
0# -> case divZeroError of wild5_00 { }
}
}; } in
case $s$wfoldlM'_loop_sKNt ipv_aj4T 0# 0# of
{ (# ipv6_ajAB, ipv7_ajAC #) ->
case ipv7_ajAC of { I# dt11_ahQ5 ->
(# ipv6_ajAB, Vector dt11_ahQ5 ipv5_suQZ ipv2_suR0 #)
}
}
};
1# -> case mallocPlainForeignPtrAlignedBytes2 of wild4_00 { }
};
1# -> case lvl192_rOAI x_aiIf of wild4_00 { }
};
1# -> case lvl193_rOAJ x_aiIf of wild4_00 { }
} } in
case <=# n_stD2 0# of {
__DEFAULT -> jump $j_sy56 n_stD2;
1# -> jump $j_sy56 0#
})
of
{ (# ipv1_ajCx, ipv2_ajCy #) ->
case ipv2_ajCy of { Vector ipv_sp7C ipv4_sp7D ipv5_sp7E ->
case /=# dt1_ajcm dt5_ajct of {
__DEFAULT ->
case <=# dt_ajcl 0# of {
__DEFAULT ->
case <=# dt6_ajcu 0# of {
__DEFAULT ->
case runRW#
(\ s1_XjRl ->
let { n_stF0 = *# dt_ajcl dt6_ajcu } in
join {
$j_sy77 x_aiIf
= case <# x_aiIf 0# of {
__DEFAULT ->
case ># x_aiIf 1152921504606846975# of {
__DEFAULT ->
let { x2_aj4J = *# x_aiIf 8# } in
case <# x2_aj4J 0# of {
__DEFAULT ->
case newAlignedPinnedByteArray# x2_aj4J 8# s1_XjRl of
{ (# ipv6_aj4T, ipv7_aj4U #) ->
let {
ipv8_suSL
= byteArrayContents#
(ipv7_aj4U `cast` <Co:5>) } in
let { ipv9_suSM = PlainPtr ipv7_aj4U } in
letrec {
$s$wfoldlM'_loop_sKOh
= \ sc_sKOg sc1_sKOf sc2_sKOe ->
case <# sc1_sKOf n_stF0 of {
__DEFAULT -> (# sc_sKOg, I# sc2_sKOe #);
1# ->
join {
$w$j_sDvx ww_sDvr ww1_sDvv
= let {
i_stF4 = *# ww_sDvr dt1_ajcm } in
case >=# i_stF4 0# of {
__DEFAULT ->
case lvl59_rOyf
dt2_sHBQ i_stF4 dt1_ajcm
of wild4_00 {
};
1# ->
case >=# dt1_ajcm 0# of {
__DEFAULT ->
case lvl59_rOyf
dt2_sHBQ
i_stF4
dt1_ajcm
of wild4_00 {
};
1# ->
case <=#
dt1_ajcm
(-# dt2_sHBQ i_stF4)
of {
__DEFAULT ->
case lvl59_rOyf
dt2_sHBQ
i_stF4
dt1_ajcm
of wild4_00 {
};
1# ->
let {
i1_stFN
= *#
ww1_sDvv
dt5_ajct } in
case >=# i1_stFN 0# of {
__DEFAULT ->
case lvl59_rOyf
ipv_sp7C
i1_stFN
dt5_ajct
of wild4_00 {
};
1# ->
case >=# dt5_ajct 0#
of {
__DEFAULT ->
case lvl59_rOyf
ipv_sp7C
i1_stFN
dt5_ajct
of wild4_00 {
};
1# ->
case <=#
dt5_ajct
(-#
ipv_sp7C
i1_stFN)
of {
__DEFAULT ->
case lvl59_rOyf
ipv_sp7C
i1_stFN
dt5_ajct
of wild4_00 {
};
1# ->
let {
ipv10_stFI
= plusAddr#
dt3_sHBR
(*#
i_stF4
8#) } in
let {
ipv11_stGr
= plusAddr#
ipv4_sp7D
(*#
i1_stFN
8#) } in
join {
$j1_sBus x1_amvw
= case writeDoubleOffAddr#
(plusAddr#
ipv8_suSL
(*#
sc2_sKOe
8#))
0#
x1_amvw
sc_sKOg
of s2_amvy
{ __DEFAULT ->
case touch#
ipv9_suSM
s2_amvy
of s'_aj0h
{ __DEFAULT ->
$s$wfoldlM'_loop_sKOh
s'_aj0h
(+#
sc1_sKOf
1#)
(+#
sc2_sKOe
1#)
}
} } in
joinrec {
$s$wfoldlM'_loop1_sKOq sc3_sKOp
sc4_sKOo
sc5_sKOn
sc6_sKOm
= case >=#
sc4_sKOo
dt5_ajct
of {
__DEFAULT ->
case sc3_sKOp
`cast` <Co:5>
of
{ D# x1_aq19 ->
case readDoubleOffAddr#
(plusAddr#
ipv11_stGr
(*#
sc4_sKOo
8#))
0#
realWorld#
of
{ (# ipv12_amvL,
ipv13_amvM #) ->
case touch#
ipv5_sp7E
ipv12_amvL
of
{ __DEFAULT ->
jump $s$wfoldlM'_loop2_sKOl
(+#
sc4_sKOo
1#)
sc5_sKOn
(+##
sc6_sKOm
(*##
x1_aq19
ipv13_amvM))
}
}
};
1# ->
jump $j1_sBus
sc6_sKOm
};
$s$wfoldlM'_loop2_sKOl sc3_sKOk
sc4_sKOj
sc5_sKOi
= case >=#
sc4_sKOj
dt1_ajcm
of {
__DEFAULT ->
jump $s$wfoldlM'_loop1_sKOq
(case readDoubleOffAddr#
(plusAddr#
ipv10_stFI
(*#
sc4_sKOj
8#))
0#
realWorld#
of
{ (# ipv12_amvL,
ipv13_amvM #) ->
case touch#
dt4_sHBS
ipv12_amvL
of
{ __DEFAULT ->
(D#
ipv13_amvM)
`cast` <Co:7>
}
})
sc3_sKOk
(+#
sc4_sKOj
1#)
sc5_sKOi;
1# ->
jump $j1_sBus
sc5_sKOi
}; } in
jump $s$wfoldlM'_loop2_sKOl
0#
0#
0.0##
}
}
}
}
}
} } in
case dt6_ajcu of wild4_ajLz {
__DEFAULT ->
case ># sc1_sKOf 0# of {
__DEFAULT ->
case <# sc1_sKOf 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOf wild4_ajLz
of
{ (# ipv10_ajLE,
ipv11_ajLF #) ->
jump $w$j_sDvx
ipv10_ajLE ipv11_ajLF
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOf wild4_ajLz
of
{ (# ipv10_ajLK,
ipv11_ajLL #) ->
jump $w$j_sDvx
ipv10_ajLK ipv11_ajLL
};
1# ->
case quotRemInt#
(+# sc1_sKOf 1#)
wild4_ajLz
of
{ (# ipv10_ajLP,
ipv11_ajLQ #) ->
jump $w$j_sDvx
(-# ipv10_ajLP 1#)
(-#
(+#
ipv11_ajLQ
wild4_ajLz)
1#)
}
}
};
1# ->
case <# wild4_ajLz 0# of {
__DEFAULT ->
case <# sc1_sKOf 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOf wild4_ajLz
of
{ (# ipv10_ajLW,
ipv11_ajLX #) ->
jump $w$j_sDvx
ipv10_ajLW ipv11_ajLX
};
1# ->
case ># wild4_ajLz 0# of {
__DEFAULT ->
case quotRemInt#
sc1_sKOf
wild4_ajLz
of
{ (# ipv10_ajM2,
ipv11_ajM3 #) ->
jump $w$j_sDvx
ipv10_ajM2
ipv11_ajM3
};
1# ->
case quotRemInt#
(+#
sc1_sKOf 1#)
wild4_ajLz
of
{ (# ipv10_ajM7,
ipv11_ajM8 #) ->
jump $w$j_sDvx
(-# ipv10_ajM7 1#)
(-#
(+#
ipv11_ajM8
wild4_ajLz)
1#)
}
}
};
1# ->
case quotRemInt#
(-# sc1_sKOf 1#)
wild4_ajLz
of
{ (# ipv10_ajMc,
ipv11_ajMd #) ->
jump $w$j_sDvx
(-# ipv10_ajMc 1#)
(+#
(+#
ipv11_ajMd wild4_ajLz)
1#)
}
}
};
-1# ->
case sc1_sKOf of wild5_ajMf {
__DEFAULT ->
case ># wild5_ajMf 0# of {
__DEFAULT ->
case quotRemInt#
wild5_ajMf -1#
of
{ (# ipv10_ajMk,
ipv11_ajMl #) ->
jump $w$j_sDvx
ipv10_ajMk ipv11_ajMl
};
1# ->
case quotRemInt#
(-# wild5_ajMf 1#) -1#
of
{ (# ipv10_ajMu,
ipv11_ajMv #) ->
jump $w$j_sDvx
(-# ipv10_ajMu 1#)
ipv11_ajMv
}
};
-9223372036854775808# ->
case overflowError of wild6_00 { }
};
0# -> case divZeroError of wild5_00 { }
}
}; } in
case $s$wfoldlM'_loop_sKOh ipv6_aj4T 0# 0# of
{ (# ipv10_ajAB, ipv11_ajAC #) ->
case ipv11_ajAC of { I# dt12_ahQ5 ->
(# ipv10_ajAB, Vector dt12_ahQ5 ipv8_suSL ipv9_suSM #)
}
}
};
1# ->
case mallocPlainForeignPtrAlignedBytes2 of wild4_00 {
}
};
1# -> case lvl192_rOAI x_aiIf of wild4_00 { }
};
1# -> case lvl193_rOAJ x_aiIf of wild4_00 { }
} } in
case <=# n_stF0 0# of {
__DEFAULT -> jump $j_sy77 n_stF0;
1# -> jump $j_sy77 0#
})
of
{ (# ipv6_XjRz, ipv7_XjRB #) ->
case ipv7_XjRB of dt11_Xi9F
{ Vector ipv8_sp8l ipv9_sp8m ipv10_sp8n ->
(VGImage dt_ajcl dt6_ajcu dt11_Xi9F) `cast` <Co:9>
}
};
1# -> case $wlvl7_rOyi dt_ajcl dt6_ajcu of wild4_00 { }
};
1# -> case $wlvl7_rOyi dt_ajcl dt6_ajcu of wild4_00 { }
};
1# ->
($wlvl8_rOyn dt_ajcl dt1_ajcm dt5_ajct dt6_ajcu) `cast` <Co:9>
}
}
}
}
}
}
}
-- RHS size: {terms: 96, types: 89, coercions: 14, joins: 2/2}
$s$fArrayVScse_$s$fArrayVScse_$ceq
= \ ds_ajaS ds1_ajaT ->
case ds_ajaS `cast` <Co:7> of { VGImage dt_ajaW dt1_ajaX v1_ajaY ->
case v1_ajaY of { Vector dt2_sHCD dt3_sHCE dt4_sHCF ->
case ds1_ajaT `cast` <Co:7> of
{ VGImage dt5_ajb3 dt6_ajb4 v2_ajb5 ->
case v2_ajb5 of { Vector dt7_sHCI dt8_sHCJ dt9_sHCK ->
case /=# dt2_sHCD dt7_sHCI of {
__DEFAULT ->
join {
exit_X79 ww_sDvV
= case >=# ww_sDvV dt7_sHCI of {
__DEFAULT -> False;
1# -> True
} } in
joinrec {
$s$weq_loop0_sKNd sc_sKNc sc1_sKNb
= case >=# sc1_sKNb dt2_sHCD of {
__DEFAULT ->
case >=# sc_sKNc dt7_sHCI of {
__DEFAULT ->
case readDoubleOffAddr#
(plusAddr# dt3_sHCE (*# sc1_sKNb 8#)) 0# realWorld#
of
{ (# ipv_amvL, ipv1_amvM #) ->
case touch# dt4_sHCF ipv_amvL of { __DEFAULT ->
case readDoubleOffAddr#
(plusAddr# dt8_sHCJ (*# sc_sKNc 8#)) 0# realWorld#
of
{ (# ipv2_XmLw, ipv3_XmLy #) ->
case touch# dt9_sHCK ipv2_XmLw of { __DEFAULT ->
case ==## ipv1_amvM ipv3_XmLy of {
__DEFAULT -> False;
1# -> jump $s$weq_loop0_sKNd (+# sc_sKNc 1#) (+# sc1_sKNb 1#)
}
}
}
}
};
1# -> False
};
1# -> jump exit_X79 sc_sKNc
}; } in
jump $s$weq_loop0_sKNd 0# 0#;
1# -> False
}
}
}
}
}
-- RHS size: {terms: 25, types: 7, coercions: 36, joins: 0/0}
$s$fArrayVScse
= C:Array
($s$fArrayVScse_$s$fVectorVectora `cast` <Co:6>)
($s$fArrayVScse_$s$fMArrayVScse `cast` <Co:5>)
$s$fArrayVScse_$s$fBaseArrayVScse
$s$fArrayVScse_$s$fArrayVScse_$cmakeImage
$s$fArrayVScse_$s$fArrayVScse_$cmakeImageWindowed
lvl198_rOAR
$s$fArrayVScse_$s$fArrayVScse_$cindex00
$s$fArrayVScse_$s$fArrayVScse_$cmap
$s$fArrayVScse_$s$fArrayVScse_$cimap
$s$fArrayVScse_$s$fArrayVScse_$czipWith
$s$fArrayVScse_$s$fArrayVScse_$cizipWith
$s$fArrayVScse_$s$fArrayVScse_$ctraverse
$s$fArrayVScse_$s$fArrayVScse_$ctraverse2
$s$fArrayVScse_$s$fArrayVScse_$ctranspose
$s$fArrayVScse_$s$fArrayVScse_$cbackpermute
($sfromListsVG `cast` <Co:15>)
$s$fArrayVScse_$s$fArrayVScse_$c|*|
$s$fArrayVScse_$s$fArrayVScse_$cfold
$s$fArrayVScse_$s$fArrayVScse_$cfoldIx
$s$fArrayVScse_$s$fArrayVScse_$ceq
$s$fArrayVScse_$s$fArrayVScse_$ccompute
(id `cast` <Co:10>)
$s$fArrayVScse_$s$fArrayVScse_$ctoVector
$s$fArrayVScse_$s$fArrayVScse_$cfromVector
-- RHS size: {terms: 5, types: 3, coercions: 0, joins: 0/0}
load2
= writeImage
$s$fArrayVScse $s$fArrayRSUcse $s$fWritableImageOutputFormat load3
-- RHS size: {terms: 27, types: 64, coercions: 32, joins: 0/0}
load1
= \ what_aefj ->
\ s_ahyA ->
case readImage1
$s$fArrayVScse
$s$fArrayRSUcse
$s$fReadableImageInputFormat
what_aefj
s_ahyA
of
{ (# ipv_ahyD, ipv1_ahyE #) ->
case ipv1_ahyE of {
Left ipv2_shzo -> (load5 `cast` <Co:5>) ipv_ahyD;
Right img_aefl ->
case img_aefl `cast` <Co:7> of nt_shzZ { __DEFAULT ->
case ((load2 (nt_shzZ `cast` <Co:9>)) `cast` <Co:2>) ipv_ahyD of
{ (# ipv2_ahAa, ipv3_ahAb #) ->
(# ipv2_ahAa, nt_shzZ `cast` <Co:9> #)
}
}
}
}
-- RHS size: {terms: 1, types: 0, coercions: 8, joins: 0/0}
load = load1 `cast` <Co:8>
------ Local rules for imported ids --------
"SPEC/Load $fVectorVectora @ (Pixel Y Double)"
forall v_sif8.
$fVectorVectora v_sif8
= $s$fArrayVScse_$s$fVectorVectora
"SPEC/Load $fMArrayVScse_$cunsafeIndex @ Y @ Double"
forall $dBaseArray_siez.
$fMArrayVScse_$cunsafeIndex $dBaseArray_siez
= $s$fArrayVScse_$s$fMArrayVScse_$cunsafeIndex
"SPEC/Load $fMArrayVScse_$cdeepSeqImage @ Y @ Double"
forall $dBaseArray_sij4.
$fMArrayVScse_$cdeepSeqImage $dBaseArray_sij4
= $s$fArrayVScse_$s$fMArrayVScse_$cdeepSeqImage
"SPEC/Load $fMArrayVScse_$cfoldl @ Y @ Double"
forall $dBaseArray_sij6.
$fMArrayVScse_$cfoldl $dBaseArray_sij6
= $s$fArrayVScse_$s$fMArrayVScse_$cfoldl
"SPEC/Load $fMArrayVScse_$cfoldr @ Y @ Double"
forall $dBaseArray_sitz.
$fMArrayVScse_$cfoldr $dBaseArray_sitz
= $s$fArrayVScse_$s$fMArrayVScse_$cfoldr
"SPEC/Load $fMArrayVScse_$cmakeImageM @ Y @ Double"
forall $dBaseArray_sivg.
$fMArrayVScse_$cmakeImageM $dBaseArray_sivg
= $s$fArrayVScse_$s$fMArrayVScse_$cmakeImageM
"SPEC/Load $fMArrayVScse_$cmapM @ Y @ Double"
forall $dBaseArray_siDk.
$fMArrayVScse_$cmapM $dBaseArray_siDk
= $s$fArrayVScse_$s$fMArrayVScse_$cmapM
"SPEC/Load $fMArrayVScse_$cmapM_ @ Y @ Double"
forall $dBaseArray_siEY.
$fMArrayVScse_$cmapM_ $dBaseArray_siEY
= $s$fArrayVScse_$s$fMArrayVScse_$cmapM_
"SPEC/Load $fMArrayVScse_$cfoldM @ Y @ Double"
forall $dBaseArray_siFZ.
$fMArrayVScse_$cfoldM $dBaseArray_siFZ
= $s$fArrayVScse_$s$fMArrayVScse_$cfoldM
"SPEC/Load $fMArrayVScse_$cfoldM_ @ Y @ Double"
forall $dBaseArray_siGc.
$fMArrayVScse_$cfoldM_ $dBaseArray_siGc
= $s$fArrayVScse_$s$fMArrayVScse_$cfoldM_
"SPEC/Load $fMArrayVScse_$cmdims @ Y @ Double"
forall $dBaseArray_siGp.
$fMArrayVScse_$cmdims $dBaseArray_siGp
= $s$fArrayVScse_$s$fMArrayVScse_$cmdims
"SPEC/Load $fMArrayVScse_$cthaw @ Y @ Double"
forall $dBaseArray_siGB.
$fMArrayVScse_$cthaw $dBaseArray_siGB
= $s$fArrayVScse_$s$fMArrayVScse_$cthaw
"SPEC/Load $fMArrayVScse_$cfreeze @ Y @ Double"
forall $dBaseArray_siH5.
$fMArrayVScse_$cfreeze $dBaseArray_siH5
= $s$fArrayVScse_$s$fMArrayVScse_$cfreeze
"SPEC/Load $fMArrayVScse_$cnew @ Y @ Double"
forall $dBaseArray_siIm.
$fMArrayVScse_$cnew $dBaseArray_siIm
= $s$fArrayVScse_$s$fMArrayVScse_$cnew
"SPEC/Load $fMVectorMVectora @ (Pixel Y Double)"
forall v_siKd.
$fMVectorMVectora v_siKd
= $s$fArrayVScse_$s$fMVectorMVectora
"SPEC/Load $fMArrayVScse_$cread @ Y @ Double"
forall $dBaseArray_siJ8.
$fMArrayVScse_$cread $dBaseArray_siJ8
= $s$fArrayVScse_$s$fMArrayVScse_$cread
"SPEC/Load $fMArrayVScse_$cwrite @ Y @ Double"
forall $dBaseArray_sj6e.
$fMArrayVScse_$cwrite $dBaseArray_sj6e
= $s$fArrayVScse_$s$fMArrayVScse_$cwrite
"SPEC/Load $fMArrayVScse_$cswap @ Y @ Double"
forall $dBaseArray_sj7n.
$fMArrayVScse_$cswap $dBaseArray_sj7n
= $s$fArrayVScse_$s$fMArrayVScse_$cswap
"SPEC/Load $fMArrayVScse @ Y @ Double"
forall v_shAr.
$fMArrayVScse v_shAr
= $s$fArrayVScse_$s$fMArrayVScse
"SPEC/Load $fArrayVScse_$cmakeImage @ Y @ Double"
forall $dBaseArray_sjz2 $dMArray_sjz1.
$fArrayVScse_$cmakeImage $dMArray_sjz1 $dBaseArray_sjz2
= $s$fArrayVScse_$s$fArrayVScse_$cmakeImage
"SPEC/Load $fArrayVScse_$cmakeImageWindowed @ Y @ Double"
forall $dBaseArray_sjHe $dMArray_sjHd.
$fArrayVScse_$cmakeImageWindowed $dMArray_sjHd $dBaseArray_sjHe
= $s$fArrayVScse_$s$fArrayVScse_$cmakeImageWindowed
"SPEC/Load $fArrayVScse_$cindex00 @ Y @ Double"
forall $dBaseArray_sjIQ $dMArray_sjIP.
$fArrayVScse_$cindex00 $dMArray_sjIP $dBaseArray_sjIQ
= $s$fArrayVScse_$s$fArrayVScse_$cindex00
"SPEC/Load $fArrayVScse_$cmap @ Y @ Double"
forall $dBaseArray_sjJC $dMArray_sjJB.
$fArrayVScse_$cmap $dMArray_sjJB $dBaseArray_sjJC
= $s$fArrayVScse_$s$fArrayVScse_$cmap
"SPEC/Load $fArrayVScse_$cimap @ Y @ Double"
forall $dBaseArray_sjKC $dMArray_sjKB.
$fArrayVScse_$cimap $dMArray_sjKB $dBaseArray_sjKC
= $s$fArrayVScse_$s$fArrayVScse_$cimap
"SPEC/Load $fArrayVScse_$czipWith @ Y @ Double"
forall $dBaseArray_sjN7 $dMArray_sjN6.
$fArrayVScse_$czipWith $dMArray_sjN6 $dBaseArray_sjN7
= $s$fArrayVScse_$s$fArrayVScse_$czipWith
"SPEC/Load $fArrayVScse_$cizipWith @ Y @ Double"
forall $dBaseArray_sjQx $dMArray_sjQw.
$fArrayVScse_$cizipWith $dMArray_sjQw $dBaseArray_sjQx
= $s$fArrayVScse_$s$fArrayVScse_$cizipWith
"SPEC/Load $fArrayVScse_$ctraverse @ Y @ Double"
forall $dBaseArray_sjSS $dMArray_sjSR.
$fArrayVScse_$ctraverse $dMArray_sjSR $dBaseArray_sjSS
= $s$fArrayVScse_$s$fArrayVScse_$ctraverse
"SPEC/Load $fArrayVScse_$ctraverse2 @ Y @ Double"
forall $dBaseArray_sjUv $dMArray_sjUu.
$fArrayVScse_$ctraverse2 $dMArray_sjUu $dBaseArray_sjUv
= $s$fArrayVScse_$s$fArrayVScse_$ctraverse2
"SPEC/Load $fArrayVScse_$ctranspose @ Y @ Double"
forall $dBaseArray_sjVp $dMArray_sjVo.
$fArrayVScse_$ctranspose $dMArray_sjVo $dBaseArray_sjVp
= $s$fArrayVScse_$s$fArrayVScse_$ctranspose
"SPEC/Load $fArrayVScse_$cbackpermute @ Y @ Double"
forall $dBaseArray_sjZW $dMArray_sjZV.
$fArrayVScse_$cbackpermute $dMArray_sjZV $dBaseArray_sjZW
= $s$fArrayVScse_$s$fArrayVScse_$cbackpermute
"SPEC/Load fromListsVG @ Vector @ (Pixel Y Double)" [0]
forall w_sk1Q. fromListsVG w_sk1Q = $sfromListsVG
"SPEC/Load $fArrayVScse_$c|*| @ Y @ Double"
forall $dBaseArray_sk26 $dMArray_sk25.
$fArrayVScse_$c|*| $dMArray_sk25 $dBaseArray_sk26
= $s$fArrayVScse_$s$fArrayVScse_$c|*|
"SPEC/Load $fArrayVScse_$cfold @ Y @ Double"
forall $dBaseArray_sk48 $dMArray_sk47.
$fArrayVScse_$cfold $dMArray_sk47 $dBaseArray_sk48
= $s$fArrayVScse_$s$fArrayVScse_$cfold
"SPEC/Load $fArrayVScse_$cfoldIx @ Y @ Double"
forall $dBaseArray_sk4q $dMArray_sk4p.
$fArrayVScse_$cfoldIx $dMArray_sk4p $dBaseArray_sk4q
= $s$fArrayVScse_$s$fArrayVScse_$cfoldIx
"SPEC/Load $fArrayVScse_$ceq @ Y @ Double"
forall $dBaseArray_sk4M $dMArray_sk4L.
$fArrayVScse_$ceq $dMArray_sk4L $dBaseArray_sk4M
= $s$fArrayVScse_$s$fArrayVScse_$ceq
"SPEC/Load $fArrayVScse_$ccompute @ Y @ Double"
forall $dBaseArray_sk7G $dMArray_sk7F.
$fArrayVScse_$ccompute $dMArray_sk7F $dBaseArray_sk7G
= $s$fArrayVScse_$s$fArrayVScse_$ccompute
"SPEC/Load $fArrayVScse_$ctoVector @ Y @ Double"
forall $dBaseArray_sk7J $dMArray_sk7I.
$fArrayVScse_$ctoVector $dMArray_sk7I $dBaseArray_sk7J
= $s$fArrayVScse_$s$fArrayVScse_$ctoVector
"SPEC/Load $fArrayVScse_$cfromVector @ Y @ Double"
forall $dBaseArray_sk7M $dMArray_sk7L.
$fArrayVScse_$cfromVector $dMArray_sk7L $dBaseArray_sk7M
= $s$fArrayVScse_$s$fArrayVScse_$cfromVector
"SPEC/Load $fArrayVScse @ Y @ Double"
forall v1_sj9i v_sj9h. $fArrayVScse v_sj9h v1_sj9i = $s$fArrayVScse
"SPEC/Load $fBaseArrayVScse_$cdims @ Y @ Double"
forall irred_sk8g.
$fBaseArrayVScse_$cdims irred_sk8g
= $s$fArrayVScse_$s$fBaseArrayVScse_$cdims
"SPEC/Load $fBaseArrayVScse @ Y @ Double"
forall v_sk87.
$fBaseArrayVScse v_sk87
= $s$fArrayVScse_$s$fBaseArrayVScse
"SPEC/Load $fMVectorMVectorPixel @ Y @ Double"
forall v_skX6.
$fMVectorMVectorPixel v_skX6
= $s$fArrayRSUcse_$s$fMVectorMVectorPixel
"SPEC/Load $fVectorVectorPixel_$cbasicUnsafeFreeze @ Y @ Double"
forall $dColorSpace_skZi.
$fVectorVectorPixel_$cbasicUnsafeFreeze $dColorSpace_skZi
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeFreeze
"SPEC/Load $fVectorVectorPixel_$cbasicUnsafeThaw @ Y @ Double"
forall $dColorSpace_skZr.
$fVectorVectorPixel_$cbasicUnsafeThaw $dColorSpace_skZr
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeThaw
"SPEC/Load $fVectorVectorPixel_$cbasicLength @ Y @ Double"
forall $dColorSpace_skZA.
$fVectorVectorPixel_$cbasicLength $dColorSpace_skZA
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicLength
"SPEC/Load $fVectorVectorPixel_$cbasicUnsafeSlice @ Y @ Double"
forall $dColorSpace_skZH.
$fVectorVectorPixel_$cbasicUnsafeSlice $dColorSpace_skZH
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeSlice
"SPEC/Load $fVectorVectorPixel_$cbasicUnsafeIndexM @ Y @ Double"
forall $dColorSpace_skZO.
$fVectorVectorPixel_$cbasicUnsafeIndexM $dColorSpace_skZO
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeIndexM
"SPEC/Load $fVectorVectorPixel_$cbasicUnsafeCopy @ Y @ Double"
forall $dColorSpace_skZX.
$fVectorVectorPixel_$cbasicUnsafeCopy $dColorSpace_skZX
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$cbasicUnsafeCopy
"SPEC/Load $fVectorVectorPixel_$celemseq @ Y @ Double"
forall $dColorSpace_sl04.
$fVectorVectorPixel_$celemseq $dColorSpace_sl04
= $s$fArrayRSUcse_$s$fVectorVectorPixel_$celemseq
"SPEC/Load $fVectorVectorPixel @ Y @ Double"
forall v_Xly6.
$fVectorVectorPixel v_Xly6
= $s$fArrayRSUcse_$s$fVectorVectorPixel
"SPEC/Load $fArrayRSUcse_$cmakeImage @ Y @ Double"
forall $dBaseArray_sl0b.
$fArrayRSUcse_$cmakeImage $dBaseArray_sl0b
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImage
"SPEC/Load $fArrayRSUcse_$cmakeImageWindowed @ Y @ Double"
forall $dBaseArray_sl1i.
$fArrayRSUcse_$cmakeImageWindowed $dBaseArray_sl1i
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cmakeImageWindowed
"SPEC/Load $fArrayRSUcse_$cindex00 @ Y @ Double"
forall $dBaseArray_sl3b.
$fArrayRSUcse_$cindex00 $dBaseArray_sl3b
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cindex00
"SPEC/Load $fArrayRSUcse_$cmap @ Y @ Double"
forall $dBaseArray_sl3p.
$fArrayRSUcse_$cmap $dBaseArray_sl3p
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cmap
"SPEC/Load $fArrayRSUcse_$cimap @ Y @ Double"
forall $dBaseArray_sl4v.
$fArrayRSUcse_$cimap $dBaseArray_sl4v
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cimap
"SPEC/Load $fArrayRSUcse_$czipWith @ Y @ Double"
forall $dBaseArray_sl4S.
$fArrayRSUcse_$czipWith $dBaseArray_sl4S
= $s$fArrayRSUcse_$s$fArrayRSUcse_$czipWith
"SPEC/Load $fArrayRSUcse_$cizipWith @ Y @ Double"
forall $dBaseArray_sl6j.
$fArrayRSUcse_$cizipWith $dBaseArray_sl6j
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cizipWith
"SPEC/Load $fArrayRSUcse_$ctraverse @ Y @ Double"
forall $dBaseArray_sl78.
$fArrayRSUcse_$ctraverse $dBaseArray_sl78
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse
"SPEC/Load $fArrayRSUcse_$ctraverse2 @ Y @ Double"
forall $dBaseArray_sl7w.
$fArrayRSUcse_$ctraverse2 $dBaseArray_sl7w
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ctraverse2
"SPEC/Load $fSourceUa @ (Pixel Y Double)"
forall v_sl9l. $fSourceUa v_sl9l = $s$fArrayRSUcse_$s$fSourceUa
"SPEC/Load $fUnboxPixel @ Y @ Double"
forall v_slar. $fUnboxPixel v_slar = $s$fArrayRSUcse_$s$fUnboxPixel
"SPEC/Load $fArrayRSUcse_$ctranspose @ Y @ Double"
forall $dBaseArray_sl7V.
$fArrayRSUcse_$ctranspose $dBaseArray_sl7V
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ctranspose
"SPEC/Load $fArrayRSUcse_$cbackpermute @ Y @ Double"
forall $dBaseArray_slat.
$fArrayRSUcse_$cbackpermute $dBaseArray_slat
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cbackpermute
"SPEC/Load $fTargetUe @ (Pixel Y Double)"
forall v_sldC. $fTargetUe v_sldC = $s$fArrayRSUcse_$s$fTargetUe
"SPEC/Load $fNumPixel @ Y @ Double"
forall v_slS0. $fNumPixel v_slS0 = $s$fArrayRSUcse_$s$fNumPixel
"SPEC/Load $fArrayRSUcse_$c|*| @ Y @ Double"
forall $dBaseArray_sleW.
$fArrayRSUcse_$c|*| $dBaseArray_sleW
= $s$fArrayRSUcse_$s$fArrayRSUcse_$c|*|
"SPEC/Load $fArrayRSUcse_$cfold @ Y @ Double"
forall $dBaseArray_slSC.
$fArrayRSUcse_$cfold $dBaseArray_slSC
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cfold
"SPEC/Load $fArrayRSUcse_$cfoldIx @ Y @ Double"
forall $dBaseArray_slVW.
$fArrayRSUcse_$cfoldIx $dBaseArray_slVW
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cfoldIx
"SPEC/Load $fArrayRSUcse_$ceq @ Y @ Double"
forall $dBaseArray_slWp.
$fArrayRSUcse_$ceq $dBaseArray_slWp
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ceq
"SPEC/Load $fArrayRSUcse_$ccompute @ Y @ Double"
forall $dBaseArray_slWF.
$fArrayRSUcse_$ccompute $dBaseArray_slWF
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ccompute
"SPEC/Load $fArrayRSUcse_$ctoManifest @ Y @ Double"
forall $dBaseArray_slWV.
$fArrayRSUcse_$ctoManifest $dBaseArray_slWV
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ctoManifest
"SPEC/Load $fArrayRSUcse_$ctoVector @ Y @ Double"
forall $dBaseArray_slXw.
$fArrayRSUcse_$ctoVector $dBaseArray_slXw
= $s$fArrayRSUcse_$s$fArrayRSUcse_$ctoVector
"SPEC/Load $fArrayRSUcse_$cfromVector @ Y @ Double"
forall $dBaseArray_slXK.
$fArrayRSUcse_$cfromVector $dBaseArray_slXK
= $s$fArrayRSUcse_$s$fArrayRSUcse_$cfromVector
"SPEC/Load $fArrayRSUcse @ Y @ Double"
forall v_sk8r. $fArrayRSUcse v_sk8r = $s$fArrayRSUcse
"SPEC/Load $fBaseArrayRSUcse_$cdims @ Y @ Double"
forall irred_slYw.
$fBaseArrayRSUcse_$cdims irred_slYw
= $s$fArrayRSUcse_$s$fBaseArrayRSUcse_$cdims
"SPEC/Load $fBaseArrayRSUcse @ Y @ Double"
forall v_slXP.
$fBaseArrayRSUcse v_slXP
= $s$fArrayRSUcse_$s$fBaseArrayRSUcse
"SPEC/Load $fEltPixel @ Y @ Double"
forall v2_slYA v1_slYz v_slYy.
$fEltPixel v_slYy v1_slYz v2_slYA
= $s$fArrayRSUcse_$s$fEltPixel
"SPEC/Load $fEqPixel0 @ Double"
forall v_XmDs. $fEqPixel0 v_XmDs = $s$fArrayRSUcse_$s$fEqPixel0
"SPEC/Load $fColorSpaceYe_$ctoComponents @ Double"
forall $dElevator_sm0n.
$fColorSpaceYe_$ctoComponents $dElevator_sm0n
= $s$fArrayRSUcse_$s$fColorSpaceYe_$ctoComponents
"SPEC/Load $fColorSpaceYe_$cgetPxC @ Double"
forall $dElevator_sm0p.
$fColorSpaceYe_$cgetPxC $dElevator_sm0p
= $s$fArrayRSUcse_$s$fColorSpaceYe_$cgetPxC
"SPEC/Load $fColorSpaceYe_$csetPxC @ Double"
forall $dElevator_sm0r.
$fColorSpaceYe_$csetPxC $dElevator_sm0r
= $s$fArrayRSUcse_$s$fColorSpaceYe_$csetPxC
"SPEC/Load $fColorSpaceYe_$cmapPxC @ Double"
forall $dElevator_sm0t.
$fColorSpaceYe_$cmapPxC $dElevator_sm0t
= $s$fArrayRSUcse_$s$fColorSpaceYe_$cmapPxC
"SPEC/Load $fColorSpaceYe_$cfoldlPx2 @ Double"
forall $dElevator_sm0v.
$fColorSpaceYe_$cfoldlPx2 $dElevator_sm0v
= $s$fArrayRSUcse_$s$fColorSpaceYe_$cfoldlPx2
"SPEC/Load $fColorSpaceYe_$ctoListPx @ Double" [2]
forall w_sm0x.
$fColorSpaceYe_$ctoListPx w_sm0x
= $s$fColorSpaceYe_$ctoListPx
"SPEC/Load $fColorSpaceYe @ Double"
forall v_slZg.
$fColorSpaceYe v_slZg
= $s$fArrayRSUcse_$s$fColorSpaceYe
"SPEC/Load $fStorablePixel_$csizeOf @ Double"
forall $dStorable_sm3d.
$fStorablePixel_$csizeOf $dStorable_sm3d
= $s$fArrayVScse_$s$fStorablePixel_$csizeOf
"SPEC/Load $fStorablePixel_$calignment @ Double"
forall $dStorable_sm3A.
$fStorablePixel_$calignment $dStorable_sm3A
= $s$fArrayVScse_$s$fStorablePixel_$calignment
"SPEC/Load $fStorablePixel3 @ Double" [2]
forall w_sm3X. $fStorablePixel3 w_sm3X = $s$fStorablePixel3
"SPEC/Load $fStorablePixel_$cpokeElemOff @ Double" [2]
forall w_sm4f.
$fStorablePixel_$cpokeElemOff w_sm4f
= $s$fStorablePixel_$cpokeElemOff
"SPEC/Load $fStorablePixel1 @ Double"
forall $dStorable_sm4r.
$fStorablePixel1 $dStorable_sm4r
= $s$fStorablePixel1
"SPEC/Load $fStorablePixel_$cpokeByteOff @ Double"
forall $dStorable_sm4t.
$fStorablePixel_$cpokeByteOff $dStorable_sm4t
= $s$fStorablePixel_$cpokeByteOff
"SPEC/Load $fStorablePixel_$cpeek @ Double"
forall $dStorable_sm4v.
$fStorablePixel_$cpeek $dStorable_sm4v
= $s$fArrayVScse_$s$fStorablePixel_$cpeek
"SPEC/Load $fStorablePixel_$cpoke @ Double"
forall $dStorable_sm4x.
$fStorablePixel_$cpoke $dStorable_sm4x
= $s$fArrayVScse_$s$fStorablePixel_$cpoke
"SPEC/Load $fStorablePixel @ Double"
forall v_sm0T.
$fStorablePixel v_sm0T
= $s$fArrayVScse_$s$fStorablePixel
"SPEC/Load $fReadableImageInputFormat @ VS @ Y"
forall v_sm4z.
$fReadableImageInputFormat v_sm4z
= $s$fReadableImageInputFormat
"SPEC/Load $fWritableImageOutputFormat @ VS @ Y"
forall v_sm5P.
$fWritableImageOutputFormat v_sm5P
= $s$fWritableImageOutputFormat
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment