:: (a -> b) -> [a] -> [b] -package:stm-hamt -is:exact is:exact -package:base-prelude -package:semigroupoids package:adjunctions