Text/ParserCombinators/Parsec/examples/Mondrian/test.m

   1 package Koe
   2 {
   3 Id =\x -> /* multi-line
   4 Comment_ */ x // the identity function
   5 ;
   6 K = \x -> \y_ -> x
   7
   8 ;fac = \n ->
   9   case n of
  10     { n -> n
  11     ; n -> let { m = minus n 1 } in times n (fac m)
  12     }
  13 ; class Hi extends Mondrian { x = 2}
  14 }