1-- Basic let/in block 2 3funcA = 4 let 5 a1 = 1 6 a2 x y = x + y 7 in 8 a1 << a2 9 10-- Nested let/in blocks 11 12funcB b = 13 let 14 b1 = 15 let 16 b2 x y = 17 let 18 b3 x y = 19 x * y 20 b4 v w = 21 v * w 22 in 23 b3 b2 99 24 in 25 (flip << b2) 77 26 b5 i j = i + j 27 in 28 b1 b 29 30-- Let/in block with type annotation 31 32funcC = 33 let 34 c1 : Int 35 c1 = 1 36 37 c2 : Int Float -> Something 38 c2 x y = x + y 39 in 40 c1 << c2 41