#!/lunar/u1/berryj/bin/gawk -f
BEGIN {FS = "&";  print array_name, " := array( [ [ x ]," }
/./ { if (NR <= lines) printf "[ %f ]", $field;
      if (NR < lines) print "," }
END {print "]):"}
