/* print.q: print streams 10-24-1993 AG, revised 07-02-2001 AG */

/* print forces a stream to be printed, one object per line; since it is
   tail-recursive, it may keep printing to eternity -- hit Ctl-C to stop it */

public print S;
print nil		= ();
print (bin X Xs)	= write X || writes "\n" || flush || print Xs;