ghc/tests/programs/rittri/rittri.stdout

   1 infixr  ->!,=\
   2
   3 -- auxiliary functions -----------------------------------------------------
   4
   5 g u v w (x:y:z) = i(v x y)(u x y (w z) z)(x:w(y:z))
   6 g u v w [x]     = [x,512]
   7 q u v w nil     = u : 95 : z v : w
   8
   9 long = several.length
  10 ((->!),(=\))=(map,($))
  11 a           = g q f
  12 y           = (-)32
  13 z           = (+)32
  14 several     = (>)2
  15 fairly_small = (<)64
  16 not_too_small = (>)91
  17 just_right   = (==)95
  18 not_too_big   = (<)96
  19 very_big            = (>)123
  20 good_size x  =foldr(&&)
  21   otherwise =\($x)->![not_too_big,very_big]
  22 f y z       =fairly_small(z)&&good_size(y)&&not_too_small(z)
  23 i cond th el=if(cond)then(th)else(el)
  24 to_be_is_to_do_and_to_do_is_to_be_said_con_fu_tse
  25
  26 -- main functions ----------------------------------------------------------
  27
  28   g  =  interact$map
  29             chr.g.map
  30             ord
  31 main =
  32  to_be_is_to_do_and_to_do_is_to_be_said_con_fu_tse(let h=a;t=x where x x=i(long x)x(h t x)
  33                                                        q v w x z =- y w:x
  34                                                        a = g q f
  35                                                        f x y = just_right x
  36                                                              && good_size y
  37                                      in t)
  38
  39 -- rittri@cs.chalmers.se ---------------------------------------------------