sub writeUnicode($$)
 {my ($f, $s) = @_;