.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: phone initials
\(de	prints the phone number(s) of\& person with given initials
echo 'inits	ext	home'
grep \(34\(14$1\(34 \(fi\(fi\(rg!
abc	1234	999-2345
def\&	2234	583-2245
ghi	3342	988-1010
xyz	4567	555-1234
!
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
