my @alpha= grep /[[:alpha:]]/, map chr, 0..0xEFFFF;
return $alpha[rand scalar @alpha];