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

##</code><code>##

  if ($f =~ /\A(.+[\\\/])/)
   {my $d = $1;
    makePath($d);
   }

##</code><code>##

  say {$F} $s;