#("=====> SAVE PRACS IN DATABASE")
#ac >+pracs0 &1 can teach you any of these &2:={#print;#write >("$1:"+$chnam+":"+$srace+":"+$room+":"+$exits;"tmp/pracs.log");#ac +pracs0a;#in pracs (1500) {#ac -pracs0a;#write ("";"tmp/pracs.log");#mumps ^pracs}}

#ac >-pracs0a &1/&2%&3={#print;#write ($last_line;"tmp/pracs.log")}

#ac >-pracs2 - a &1 wound at &2.={#print;#var $wound=1}

#al pracs={#if ("$1"=="") {#mumps list^pracs};#else #if ("$1"!="") {#! touch tmp/pracs.out;#mumps show^pracs;#if ("$2"!="") #exe <tmp/pracs.out}}