apple-0.1.0.0: test/data/bha.apple

λx.λy. {sum ← [(+)/x]; sum'((<|)`{0,1} x (y::M float))}