-\r
-main = match (5 :: Integer) with\r
- (1 :: Integer) -> "wrong"\r
- (2 :: Integer) -> "wrong"\r
- (5 :: Integer) -> "right"\r
- (6 :: Integer) -> "wrong"\r
- _ -> "wrong"\r
---\r
+
+main = match (5 :: Integer) with
+ (1 :: Integer) -> "wrong"
+ (2 :: Integer) -> "wrong"
+ (5 :: Integer) -> "right"
+ (6 :: Integer) -> "wrong"
+ _ -> "wrong"
+--
right
\ No newline at end of file