Add new acceptance test scenario: 053

```
  × foo failed
  help: ┍━ left ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┑
        │ Failed to deserialise PlutusData using UnConstrData: │
        │                                                      │
        │ Con(                                                 │
        │     Data(                                            │
        │         BigInt(                                      │
        │             Int(                                     │
        │                 Int(                                 │
        │                     Int {                            │
        │                         neg: false,                  │
        │                         val: 0,                      │
        │                     },                               │
        │                 ),                                   │
        │             ),                                       │
        │         ),                                           │
        │     ),                                               │
        │ )                                                    │
        ┕━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┙

        should be equal to

        ┍━ right ━━━━━━━━━┑
        │ (con integer 3) │
        ┕━━━━━━━━━━━━━━━━━┙
  ```

examples/acceptance_tests/053/aiken.lock

@@ -0,0 +1,5 @@
+# This file was generated by Aiken
+# You typically do not need to edit this file
+
+requirements = []
+packages = []

examples/acceptance_tests/053/aiken.toml

@@ -0,0 +1,3 @@
+name = 'aiken-lang/acceptance_test_053'
+version = '0.0.0'
+description = ''

examples/acceptance_tests/053/lib/tests.ak

@@ -0,0 +1,16 @@
+pub type LinkedList<a> {
+  Empty
+  Node(a, LinkedList<a>)
+}
+
+pub fn size(t: LinkedList<alg>) -> Int {
+  when t is {
+    Empty -> 0
+    Node(_, tail) -> 1 + size(tail)
+  }
+}
+
+test foo() {
+  let xs = Node(0, Node(1, Node(2, Empty)))
+  size(xs) == 3
+}