sub winrand {
	use feature 'state';
	state $r = 0; # seed
	$r = ( 214013*$r + 2531011 ) & 0xFFFFFFFF;
	return ($r>>16)&0x7FFF;
}