
/**  Ring terminal bell  **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: January, 1988 */
/*K: Bell Warning Beep*/
/*B: Only sounds bell once. Beep[2] does not always sound bell. Beep prints a
	pair of quotes and a newline. YUCK*/
/*: Beep[($n:1)]
	Sound bell $n times */ 

Beep_:Tier;

beepc : -7; /* code for a bell */
Beep[$n] :: Lpr[Impl[Repl[beepc,$n]]]
Beep[] :: Beep[1]
Beep[0] :: Lpr[""]

