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