p
_ <- bar
догадайся что делает bar
Size: a a a
p
p
p
AZ
DS
main = do
x <- do { bar; foo; wat; wan }
y <- do { bar; foo; wat; wan }
return x + y
Заменить на
main = do
let action = do { bar; foo; wat; wan }
x <- action
y <- action
return x + y
DS
DS
AZ
p
AZ
A
p
p
DS
AZ
AZ
DS
p
G
p