%
% log message to the console
%

/log_message {	% ... - ...
	target self eq {
		sender self eq {
			dbf (% -- %\() [namestr message] fprintf 
		} {
			dbf (% to % -- %\() [
				/namestr sender send namestr message
			] fprintf 
		} ifelse
	} {
		dbf (% via % to % -- %\() [
			/namestr sender send /namestr target send namestr message
		] fprintf 
	} ifelse
	args {
		dbf exch 200 string cvs writestring
		dbf ( ) writestring
	} forall
	dbf (\)\n) writestring
	dbf flushfile
} def