AP
Size: a a a
AP
[
AP
AP
[
AK
IO
bar- то будет шариться.opaqueSeq :: b -> a -> a
opaqueSeq = seq
{-# NOINLINE opaqueSeq #-}
bar :: () -> [Int]
bar a = [opaqueSeq a 1..1000]
{-# NOINLINE bar #-}
lvl_r1DC :: Int
lvl_r1DC = I# 1#
bar :: () -> [Int]
bar
= \ (a_a1jx :: ()) ->
case opaqueSeq a_a1jx lvl_r1DC of { I# x_a1DM ->
eftInt x_a1DM 1000#
}
YP
OS
OS
MK
~OS
~MK
MK
MK
MK
a ~ Scientificк