p = {3, 0, 1, 8, 7, 2, 5, 4, 9, 6}

function vypis()
  log(p[1],p[2],p[3],p[4],p[5],
      p[6],p[7],p[8],p[9],p[10])
end

vypis()

function qs(l,r)
 local l2,r2=l,r
 local pivot=p[l]

 while l~=r do
  if l>r then return end
  while p[l]<pivot do l=l+1 end
  while p[r]>pivot do r=r-1 end
  p[l],p[r] = p[r],p[l]
  vypis()
 end

  local piv=l

  qs(l2,piv-1)
  qs(piv+1,r2)
end

qs(1,10)