qsort []     = []
  qsort (x:xs) = qsort elts_lt_x ++ [x] ++ qsort elts_gr_x
                   where
                     elts_lt_x   = [y | y <- xs, y < x]
                     elts_gr_x = [y | y <- xs, y > x]

##</code><code>##

  	($minimum) = sort {$a <=> $b} @items;

##</code><code>##

	minimum = head(qsort array);

##</code><code>##

	sub zero {
	  return 0;
	}

	$x = zero(SOME_VERY_LONG_COMPLICATED_EXPRESSION);