Support some, ok and err wrappers and untyped function inputs

test/corpus/basics.txt

@@ -36,7 +36,7 @@ Point :: &{
     y: i32 = 0
 }
 point := &Point.{ x: 1; y = 2 }
-maybe: []{i32?}: [nil, 1->|.some]
+maybe: []{i32?}: [nil, some 1]
 
 ---
 
@@ -75,13 +75,9 @@ maybe: []{i32?}: [nil, 1->|.some]
       (collection_entry
         (nil_literal))
       (collection_entry
-        (pipeline_expression
+        (unary_expression
           (signed_numeric_literal
-            (integer_literal))
-          (direct_pipeline_stage
-            (pipeline_callable
-              (sum_constructor
-                (identifier)))))))))
+            (integer_literal)))))))
 
 ==================
 Control flow and patterns
@@ -157,6 +153,7 @@ ready :: first
     (binary_expression
       (identifier)
       (identifier))))
+
 ==================
 Compact range after an integer
 ==================
@@ -233,3 +230,206 @@ unit :: @ { () }
     (function_literal
       (block
         (unit_literal)))))
+
+==================
+Whole-argument function patterns
+==================
+
+pair :: @ (left, right): (i32, i32) { left + right }
+product :: @ {value}: &{value: i32:} { value }
+callback :: @ operation: {i32 -> i32} { 1->operation }
+unit :: @ () -> i32 { 42 }
+
+---
+
+(source_file
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (tuple_pattern
+          (pattern
+            (identifier))
+          (pattern
+            (identifier)))
+        (tuple_type
+          (primitive_type)
+          (primitive_type)))
+      (block
+        (binary_expression
+          (identifier)
+          (identifier)))))
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (product_pattern
+          (product_pattern_field
+            (identifier)))
+        (product_type
+          (product_field
+            (identifier)
+            (primitive_type))))
+      (block
+        (identifier))))
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (identifier)
+        (grouped_type
+          (function_type
+            (primitive_type)
+            (primitive_type))))
+      (block
+        (pipeline_expression
+          (signed_numeric_literal
+            (integer_literal))
+          (direct_pipeline_stage
+            (pipeline_callable
+              (identifier)))))))
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (unit_pattern))
+      (primitive_type)
+      (block
+        (signed_numeric_literal
+          (integer_literal))))))
+
+==================
+Optional and result wrappers
+==================
+
+wrap :: @ value: i32 -> i32 ! str { ok value }
+first :: @ items: []i32 -> i32? {
+    match items {
+        [] => nil
+        [head, ...rest] => some head
+    }
+}
+unwrap :: @ result: i32 ! str -> i32 {
+    match result {
+        ok value => value
+        err _ => 0
+    }
+}
+
+---
+
+(source_file
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (identifier)
+        (primitive_type))
+      (result_type
+        (primitive_type)
+        (primitive_type))
+      (block
+        (unary_expression
+          (identifier)))))
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (identifier)
+        (array_type
+          (primitive_type)))
+      (optional_type
+        (primitive_type))
+      (block
+        (match_expression
+          (identifier)
+          (match_arm
+            (pattern
+              (array_pattern))
+            (nil_literal))
+          (match_arm
+            (pattern
+              (array_pattern
+                (array_pattern_entry
+                  (pattern
+                    (identifier)))
+                (array_pattern_entry
+                  (identifier))))
+            (unary_expression
+              (identifier)))))))
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (identifier)
+        (result_type
+          (primitive_type)
+          (primitive_type)))
+      (primitive_type)
+      (block
+        (match_expression
+          (identifier)
+          (match_arm
+            (pattern
+              (wrapper_pattern
+                (identifier)))
+            (identifier))
+          (match_arm
+            (pattern
+              (wrapper_pattern))
+            (signed_numeric_literal
+              (integer_literal))))))))
+
+==================
+Untyped function inputs
+==================
+
+double :: @ value { value * 2 }
+sum: (i32, i32) -> i32: @ (left, right) { left + right }
+mixed :: @ (left: i32, right) -> i32 { left + right }
+
+---
+
+(source_file
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_parameter
+        (identifier))
+      (block
+        (binary_expression
+          (identifier)
+          (signed_numeric_literal
+            (integer_literal))))))
+  (declaration
+    (identifier)
+    (function_type
+      (tuple_type
+        (primitive_type)
+        (primitive_type))
+      (primitive_type))
+    (function_literal
+      (typed_parameter
+        (tuple_pattern
+          (pattern
+            (identifier))
+          (pattern
+            (identifier))))
+      (block
+        (binary_expression
+          (identifier)
+          (identifier)))))
+  (declaration
+    (identifier)
+    (function_literal
+      (typed_tuple_pattern
+        (typed_tuple_component
+          (identifier)
+          (primitive_type))
+        (typed_tuple_component
+          (identifier)))
+      (primitive_type)
+      (block
+        (binary_expression
+          (identifier)
+          (identifier))))))