ghc/tests/programs/rittri/rittri.stdin

   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 fairlySmall = (<)64
  16 notTooSmall = (>)91
  17 justRight   = (==)95
  18 notTooBig   = (<)96
  19 veryBig     = (>)123
  20 goodSize x  =foldr(&&)
  21   otherwise =\($x)->![notTooBig,veryBig]
  22 f y z       =fairlySmall(z)&&goodSize(y)&&notTooSmall(z)
  23 i cond th el=if(cond)then(th)else(el)
  24 toBeIsToDoAndToDoIsToBeSaidConFuTse
  25
  26 -- main functions ----------------------------------------------------------
  27
  28   g  =  interact$map
  29             chr.g.map
  30             ord
  31 main =
  32  toBeIsToDoAndToDoIsToBeSaidConFuTse(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 = justRight x
  36                                                              && goodSize y
  37                                      in t)
  38
  39 -- rittri@cs.chalmers.se ---------------------------------------------------