add fuse task

src/web/store/Data.re

@@ -81,6 +81,15 @@ let uncurry_modify = {|let fold_right:
 (A -> Acc -> Acc) -> List(A) -> Acc -> Acc = in
 fold_right(fun n -> fun sum -> n + sum)(ns)(0)|};
 
+let fuse_modify = {|shapes
+|> List.filter(fun s -> area(s) < 100)
+|> List.map(fun s ->
+let stdDev = if area(s) < 50 then 2 else 4 in
+let blurred = blur(stdDev, s) in
+blend(blurred, greenRect)
+)
+|> List.map(skew(4))|};
+
 let emoji_paint = {|type Emoji = None + Smile + Laugh in
 let Row = Int in
 let Col = Int in

src/web/store/Store.re

@@ -39,6 +39,7 @@ let tasks = [
   Data.t3_transcribe,
   Data.t4_transcribe,
   Data.uncurry_modify,
+  Data.fuse_modify,
   // Data.emoji_paint,
   // Data.t0_modify,
   // Data.t1_modify,