Ticket #5522: z6.hs

File z6.hs, 249 bytes (added by igloo, 2 years ago)
Line 
1
2{-# LANGUAGE MonadComprehensions #-}
3
4module Foo where
5
6output :: [Int]
7output = [ x0 + x1 + x2 + x3 + x4 + x5
8         | x0 <- [0]
9         , x1 <- [1]
10         , x2 <- [2]
11         , x3 <- [3]
12         , x4 <- [4]
13         , x5 <- [5]
14         ]