license <- function() {
cat("\nThis software is distributed under the terms of the GNU GENERAL\n")
cat("PUBLIC LICENSE Version 2, June 1991.  The terms of this license\n")
cat("are in a file called COPYING which you should have received with\n")
cat("this software.\n")
cat("\n")
cat("If you have not received a copy of this file, you can obtain one\n")
cat("by writing to:\n")
cat("\n")
cat("	The Free Software Foundation, Inc.\n")
cat("	675 Mass Ave, Cambridge, MA 02139, USA\n")
cat("\n")
cat("``Share and Enjoy.''\n\n")
}
