add luafun sample

samples/bad-script8.lua

@@ -0,0 +1,7 @@
+function on_resume()
+    for i = 1, 15 do
+        system:copy_to_clipboard("aaa")
+        ui:show_text(i)
+    end
+end
+

samples/luafun-sample.lua

@@ -0,0 +1,9 @@
+require 'fun'()
+
+function on_resume()
+    --ui:show_text(sum(filter(function(x) return x % 16 == 0 end, range(10000))))
+
+    local tab = {}
+    each(function(x) table.insert(tab, x) end, map(function(x) return 2 * x end, range(4)))
+    ui:show_lines(tab)
+end