Initial data commit

Task/Accumulator-factory/AppleScript/accumulator-factory-1.applescript

@@ -0,0 +1,16 @@
+on accumulator(n)
+	-- Returns a new script object
+	-- containing a handler.
+	script
+		on call(i)
+			set n to n + i -- Returns n.
+		end call
+	end script
+end accumulator
+
+set x to accumulator(10)
+log x's call(1)
+set y to accumulator(5)
+log y's call(2)
+log x's call(3.5)
+-- Event Log: (*11*) (*7*) (*14.5*)

Task/Accumulator-factory/AppleScript/accumulator-factory-2.applescript

@@ -0,0 +1,18 @@
+on run
+    set x to foo(1)
+
+    x's |λ|(5)
+
+    foo(3)
+
+    x's |λ|(2.3)
+end run
+
+-- foo :: Int -> Script
+on foo(sum)
+    script
+        on |λ|(n)
+            set sum to sum + n
+        end |λ|
+    end script
+end foo