alias testit {
	@ i = 0
	@ fd = open(random-num W)
	while (i < 10000)
	{
		@ write($fd $rand(100) $rand(100))
		@ i++
	}
	@ close($fd)
}

