proc rireDiabolique {} {
	set rire mw
	while {[incr iw] < 50} {
		append rire [lindex {h H a A} [expr ([rand 2744] + 78 * $iw) % 4]]
	}
	return $rire
}

proc rireDiabolique {{l 50} {c a}} { 
     set [set $c [set type mw]] [list ]
      while {[incr i]<$l} {
         if {$mw != [set mw [lindex [list h fira $c vous A passe H le A bonjour $c] [expr 2 * (int(rand()*[join [scan [join [info vars]] [string repeat %c [llength [info vars]]]] [list ]]) % [llength [info vars]]) ]]]} {
              [join [list $c pp end] [list ]] type [set [set $c]]  
        } 
     }
return [set [lindex [info frame [info frame]] [expr 1 == 2]]] }