alias wbs.quizz.aide {
  ;retourne des *** par exmeple: $wbs.quizz.aide(hello world,0) retournera: ***** *****
  ;syntaxe: $wbs.quizz.aide(chaine,reveler)
  ;le deuxieme argument indique combiens de caracteres il faut devoiler
  ;si on demande plus de caracteres a devoiler que la longeur de la chaine on retourne la chaine
  if ($2 >= %l) return $1
  var %b, %l = $len($1) , %n = %l , %r = $iif($2 > %l,%l,$2)
  while (%n) {
    %b = $iif($mid($1,%n,1) == $chr(32),$chr(32),*) $+ %b
    dec %n
  }
  while (($numtok(%rl,32) < %l) && (%r)) {
    var %cr = $r(1,%l)
    if (!$istok(%rl,%cr,32)) {
      var %rl = %rl %cr, %cc = $mid($1,%cr,1)
      ;wecho $sname %cr ::  $numtok(%rl,32) :: %rl :: %r
      ;la on demande a $reppos de remplacer la position "%cr" (aléatoire) dans %b (buffer)
      ;(on remplace tout betement une * par une lettre de la réponse)
      %b = $reppos(%b,%cr,%cc)
      dec %r
    }
  }
  return %b
}
alias reppos return $+($iif($calc($2 -1) > 0,$mid($1,1,$v1)),$3,$mid($1,$iif($calc($2 +1) > 0,$v1,1)))