#!perl                                                      #<HTML><PRE>
#
# Function @OUT=RARRAY($FILE)
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub RARRAY {
  $FILE=$_[0];
  local(@OUT);

  open(LU,$FILE);
  # Reading
  @OUT=<LU>;
  close(LU) || die "Error";

  # Subroutine automatically returns the value of the last expression
  # evaluated:
  @OUT=split(' ',join(' ',@OUT));

}
#=======================================================================
# Subroutine WARRAY($FILE,@OUT)
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub WARRAY {
  $FILE=shift(@_);
  local(@OUT)=@_;

  @OUT=join("\n",@OUT);
  open(LU,$FILE);
  print LU "@OUT";
  close(LU) || die "Error";
}
#=======================================================================
1;                                                               #</PRE>
