.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: edlast f\&ile
\(de	prints the last line of\& f\&ile, then deletes that line
ed - $1 \(fi\(fi-\(rgeof\&		\(de variable substitutions prohibited
	H
	$p
	$d
	w
	q
eof\&
echo done
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
