.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: writemail message user
\(de	if\& user is logged in, write message on terminal;
\(de	otherwise, mail it to user
echo \(34$1\(34 | \(Fl write \(34$2\(34 || mail \(34$2\(34 ;\(Fi
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
