TESTING DISCRIMINATED UNIONS two two two one one one three three three apple([9, 5, 1]) apple([9, 5, 1]) apple([9, 5, 1]) banana([three, one, two]) banana([three, one, two]) banana([three, one, two]) zop(3.3, 2.03) zop(3.3, 2.03) zop(3.3, 2.03) zip(3, 2) zip(3, 2) zip(3, 2) zap(3, -2.111) zap(3, -2.111) zap(3, -2.111) wombat wombat wombat foo foo foo tuple_a(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, 17) tuple_a(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, 17) tuple_a(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, 17) tuple_b(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, ["x", "y", "z"]) tuple_b(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, ["x", "y", "z"]) tuple_b(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, ["x", "y", "z"]) tuple_c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ["p", "q"], 17) tuple_c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ["p", "q"], 17) tuple_c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ["p", "q"], 17) tuple_d(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ["d", "e", "f"], 15, ["u", "v", "w"], 17) tuple_d(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ["d", "e", "f"], 15, ["u", "v", "w"], 17) tuple_d(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ["d", "e", "f"], 15, ["u", "v", "w"], 17) TESTING POLYMORPHISM poly_three(3.33, 4, poly_one(9.11)) poly_three(3.33, 4, poly_one(9.11)) poly_three(3.33, 4, poly_one(9.11)) poly_two(3) poly_two(3) poly_two(3) poly_one([2399.3]) poly_one([2399.3]) poly_one([2399.3]) TESTING BUILTINS "" "" "" "Hello, world\n" "Hello, world\n" "Hello, world\n" "Foo%sFoo" "Foo%sFoo" "Foo%sFoo" "\"" "\"" "\"" 'a' 'a' 'a' '&' '&' '&' 3.14159 3.14159 3.14159 1.128324983E-21 1.128324983E-21 1.128324983E-21 2.23954899E+23 2.23954899E+23 2.23954899E+23 -65 -65 -65 4 4 4 561u 561u 561u -10i8 -10i8 -10i8 11i8 11i8 11i8 12u8 12u8 12u8 -13i16 -13i16 -13i16 14i16 14i16 14i16 15i16 15i16 15i16 -16i32 -16i32 -16i32 17i32 17i32 17i32 18u32 18u32 18u32 -19i64 -19i64 -19i64 20i64 20i64 20i64 21u64 21u64 21u64 univ_cons(["hi! I\'m a univ!"]) univ_cons(["hi! I\'m a univ!"]) univ_cons(["hi! I\'m a univ!"]) {1, "two", '3', {4, '5', "6"}} {1, "two", '3', {4, '5', "6"}} {1, "two", '3', {4, '5', "6"}} TESTING OTHER TYPES var(1) var(1) var(1) var_supply(0) var_supply(0) var_supply(0) var_supply(1) var_supply(1) var_supply(1) empty empty empty qwerty(4) qwerty(4) qwerty(4)