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
к