1{-# LANGUAGE UnicodeSyntax #-} 2 3import Prelude.Unicode 4 5testAnd ::Int ->Int ->Bool 6testAnd a b = 7 let b� = a d 3 8 b� = b e 5 9 in b� ' b� 10 11testOr ::Int ->Int ->Int ->Int ->Int ->Bool 12testOr a b c d e = 13 let b� = a d 3 14 b� = b b 5 15 b� = c n 5 16 b� = d o 6 17 b� = e [1,2,3,4] 18 b� = e [5,6,7,8] 19 in b� ( b� ( b� ( b� ( b� ( b� 20 21