gerrit.simantics Code Review - simantics/platform.git/blob

   1 infixr 2 l\r
   2 infixr 1 r\r
   3 \r
   4 l a b = a\r
   5 r a b = b\r
   6 \r
   7 main = (1 :: Integer) `l` (2 :: Integer) `r` (3 :: Integer) `l` (4 :: Integer)\r
   8 --\r
   9 3