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