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