Subversion Repositories wimsdev

!for t in result,context
 !if $(ask$t)<2
  n$t=0
 !else
  n$t=!itemcnt $($(t)list)
 !endif
 !if $(n$t)>1
  good=!item 1,2 of $($(t)list)
  !if $(ask$t)>2
   bad=!item 3 to -1 of $($(t)list) 
   n=!itemcnt $bad
   s=!shuffle $n
   s=!item 1 to $(ask$t)-2 of $s
   bad=!item $s of $bad
   list$t=!sort items $good,$bad
  !else
   list$t=!sort items $good
  !endif
  sh$t=$wims_sort_order
  good$t=!positionof item 1 in $(sh$t)
 !endif
!next t