licence <- 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("via WWW at http://www.gnu.org/copyleft/gpl.html, or by writing to:\n")
    cat("\n")
    cat("   The Free Software Foundation, Inc.,\n")
    cat("   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.\n")
    cat("\n")
    cat("A small number of files (the API header files and export files,\n")
    cat("listed in R_HOME/COPYRIGHTS) are distributed under the\n")
    cat("LESSER GNU GENERAL PUBLIC LICENSE version 2.1.\n")
    cat("This can be obtained via WWW at\n")
    cat("http://www.gnu.org/copyleft/lgpl.html, or by writing to the\n")
    cat("address above\n")
    cat("\n")
    cat("``Share and Enjoy.''\n\n")
}
