Name: !MhMRSATORI 2008-01-20 0:50
ITT: Give me a program, and I'll tell you if it terminates
.
.
setXPa [] = []
setXPa (s:xs) = setXPa [x|x <- xs,x < s] ++ [s] ++ setXPa [x|x <- xs,x >= s]