1   module Libfuns 
    2 
    3 
    4 
    5                 (par, plist, seq)
    6   where
    7 
    8 
    9   par x y =  y
   10 
   11   plist l = par (pl l) l
   12                 where
   13                 pl [] = []
   14                 pl (a:l) = par a (pl l)
   15 
   16 
   17   --1.3:seq x y = y     
   18