ЗП
Store, смысл егоw a -> w (w a) - duplicatem (m a) -> m a - joinSize: a a a
ЗП
Store, смысл егоw a -> w (w a) - duplicatem (m a) -> m a - joinVY
extend это "следующий" Store будетextend, то в этом кортеже (который в Store) я получу ф-цию, которая мне вернет "следующий" StoreЗП
tailsVY
extendЗП
extendVY
tailsVY
VY
ЗП
ЗП
к
newtype E6 a = E6 ((Unit → a → a) → Unit)
foo ∷ ∀ a b. (b → a) → (a → b) → E6 a → E6 b
foo h f (E6 g) = E6 \cb → g (\x y → h $ cb x (f y))
к
к
VY
ЗП
VY
VY
ЗП