/*$OpenXM: OpenXM/rc/asirrc,v 1.7 2001/03/08 06:15:00 takayama Exp $*/ load("gr")$ load("primdec")$ load("katsura")$ load("xm")$ load("names.rr")$ User_asirrc=which(getenv("HOME")+"/.asirrc")$ if (type(User_asirrc)!=0) { print("Loading ~/.asirrc")$ load(User_asirrc)$ } end$