Générer un rire diabolique aléatoire (indispensable)

[MenzAgitat]

 
Exemple :

.tcl rireDiabolique
Tcl: mwaaahAhHHaAhaHahHhAaAaaAHHHaHAAAHhahhhHAaahahhAAhh

tclcopier

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

imaginé par Fira